From f97085e5c6503cc2cec0d9d7f2d4554abc839d42 Mon Sep 17 00:00:00 2001 From: "Artyom V. Poptsov" Date: Mon, 13 Jun 2016 09:48:45 +0400 Subject: tests/client-server.scm: Add new TCs * tests/client-server.scm ("userauth-password!, session: non-session object") ("userauth-password!, session: non-connected session") ("userauth-password!, password: non-string object"): Add new TCs. --- tests/client-server.scm | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) diff --git a/tests/client-server.scm b/tests/client-server.scm index d8c001d..daed263 100644 --- a/tests/client-server.scm +++ b/tests/client-server.scm @@ -256,6 +256,42 @@ ;;; 'userauth-password!' +;; The procedure called with a wrong object as a parameter which leads to an +;; exception. +(test-error-with-log "userauth-password!, session: non-session object" + 'wrong-type-arg + (userauth-password! "Not a session." "Password")) + +;; Client tries to authenticate using a non-connected session which leads to +;; an exception. +(test-error-with-log "userauth-password!, session: non-connected session" + 'wrong-type-arg + (userauth-password! (make-session-for-test) "Password")) + +;; User tries to authenticate using a non-string object as a password. the +;; procedure raises an error. +(test-error-with-log "userauth-password!, password: non-string object" + 'wrong-type-arg + (run-client-test + + ;; server + (lambda (server) + (server-listen server) + (let ((session (server-accept server))) + (server-handle-key-exchange session) + (start-session-loop session + (lambda (msg type) + (message-auth-set-methods! msg '(password)) + (message-reply-success msg))))) + + ;; client + (lambda () + (let ((session (make-session-for-test))) + (sleep 1) + (connect! session) + (userauth-password! session 123))))) + + (test-assert-with-log "userauth-password!, success" (run-client-test -- cgit v1.2.3