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.

2 files changed, 20 insertions, 0 deletions

diff --git a/tests/key.scm b/tests/key.scm
index 19e0ca0..c4394b1 100644
--- a/tests/key.scm
+++ b/tests/key.scm
@@ -141,6 +141,16 @@
    (public-key->string (string->public-key %ecdsakey-pub-string 'ecdsa))
    %ecdsakey-pub-string))
 
+(test-assert-with-log "string->public-key, RSA, gc test"
+  (let ((max-keys 1000))
+    (do ((idx 1 (+ idx 1)))
+        ((> idx max-keys))
+      (when (zero? (euclidean-remainder idx 100))
+        (format-log/scm 'nolog "" (format #f "~d / ~d keys created ..."
+                                          idx max-keys)))
+      (public-key->string (string->public-key %rsakey-pub-string 'rsa)))
+    #t))
+
 
 (test-assert-with-log "make-keypair"
   (and (let ((key (make-keypair 'rsa 1024)))
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"))