diff options
| -rw-r--r-- | tests/client-server.scm | 16 |
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))) + + ;;; |