diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-08-19 13:17:34 +0400 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-08-19 13:17:34 +0400 |
| commit | 0c1e76167558b439a642d1dc2e795cb43d466982 (patch) | |
| tree | d6cc4df9ab40a622641e5e50d098643f5e058e91 /tests/session.scm | |
| parent | libguile-ssh: Bugfix: Check if smobs are already freed (diff) | |
| download | guile-ssh-0c1e76167558b439a642d1dc2e795cb43d466982.tar.gz | |
tests/key.scm ("string->public-key, RSA, gc test"): New TC
* tests/key.scm ("string->public-key, RSA, gc test"): New TC.
* tests/session.scm ("%make-session, gc test"): New TC.
Diffstat (limited to 'tests/session.scm')
| -rw-r--r-- | tests/session.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/session.scm b/tests/session.scm index cada199..bfce279 100644 --- a/tests/session.scm +++ b/tests/session.scm @@ -31,6 +31,16 @@ (test-assert "%make-session" (%make-session)) +(test-assert-with-log "%make-session, gc test" + (let ((max-sessions 1000)) + (do ((idx 1 (+ idx 1))) + ((> idx max-sessions)) + (when (zero? (euclidean-remainder idx 100)) + (format-log/scm 'nolog "" (format #f "~d / ~d sessions created ..." + idx max-sessions))) + (%make-session)) + #t)) + (test-assert "session?" (let ((session (%make-session)) (x "string")) |