From eec26866ccb9c650d21bb954245c31bf4833354b Mon Sep 17 00:00:00 2001 From: Artyom Poptsov Date: Tue, 28 Jan 2014 10:31:47 +0400 Subject: tests/: Update TCs to use symbols for `log-verbosity' option. * tests/client-server.scm ("connect"): Update test to use symbols for setting log levels. * tests/server.scm ("server-set!, valid values"): Likewise. ("server-set!, invalid values"): Likewise. ("make-server"): Likewise. ("server-listen"): Likewise. * tests/session.scm ("session-set!, valid values"): Likewise. ("session-set!, invalid values"): Update `log-verbosity' data set for the test. --- tests/server.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'tests/server.scm') diff --git a/tests/server.scm b/tests/server.scm index 364438d..ee6f124 100644 --- a/tests/server.scm +++ b/tests/server.scm @@ -44,7 +44,7 @@ (rsakey ,(format #f "~a/tests/rsakey" topdir)) (dsakey ,(format #f "~a/tests/dsakey" topdir)) (banner "string") - (log-verbosity 0 1 2 3 4 0) + (log-verbosity nolog rare protocol packet functions) (blocking-mode #f #t))) (log (test-runner-aux-value (test-runner-current))) (res #t)) @@ -73,7 +73,7 @@ (rsakey "I'm not a RSA key" 42) (dsakey "I'm not a DSA key" 42) (banner 12345) - (log-verbosity -1 5) + (log-verbosity -1 0 1 2 3 4 5) (blocking-mode 42 "string"))) (log (test-runner-aux-value (test-runner-current))) (res #t)) @@ -101,7 +101,7 @@ #:rsakey (format #f "~a/tests/rsakey" topdir) #:dsakey (format #f "~a/tests/dsakey" topdir) #:banner "banner" - #:log-verbosity 1 + #:log-verbosity 'nolog #:blocking-mode #f))) (test-assert "server-listen" @@ -109,7 +109,7 @@ (server (make-server #:bindaddr "127.0.0.1" #:bindport 123456 #:rsakey (format #f "~a/tests/rsakey" topdir) - #:log-verbosity 1))) + #:log-verbosity 'nolog))) (server-listen server) #t)) -- cgit v1.2.3