tests/client-server.scm: Add TCs for 'userauth-public-key/auto!'

1 files changed, 16 insertions, 0 deletions

diff --git a/tests/client-server.scm b/tests/client-server.scm
index d86a869..dac6aba 100644
--- a/tests/client-server.scm
+++ b/tests/client-server.scm
@@ -402,6 +402,22 @@
         (let ((prvkey (private-key-from-file %rsakey)))
           (userauth-public-key! session prvkey)))))))
 
+
+;;; 'userauth-public-key/auto!'
+
+;; The procedure called with a wrong object as a parameter which leads to an
+;; exception.
+(test-error-with-log "userauth-public-key/auto!, session: non-session object"
+  'wrong-type-arg
+  (userauth-public-key/auto! "Not a session."))
+
+;; Client tries to authenticate using a non-connected session which leads to
+;; an exception.
+(test-error-with-log "userauth-public-key/auto!, session: non-connected session"
+  'wrong-type-arg
+  (userauth-public-key/auto! (make-session-for-test)))
+
+
 ;;;