From 9e42e88ebb5acd911dd2818e241874de755d3f20 Mon Sep 17 00:00:00 2001 From: Artyom Poptsov Date: Sun, 26 Jan 2014 20:57:21 +0400 Subject: tests/server.scm: Add new TCs. * tests/server.scm ("server-set!, invalid values", "make-server") ("server-listen"): New TCs. --- tests/server.scm | 47 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 47 insertions(+) (limited to 'tests/server.scm') diff --git a/tests/server.scm b/tests/server.scm index f70a4dd..364438d 100644 --- a/tests/server.scm +++ b/tests/server.scm @@ -66,6 +66,53 @@ options) res)) +(test-assert "server-set!, invalid values" + (let ((server (%make-server)) + (options '((bindaddr "I'm not a IP address" 42) + (bindport "I'm not a port" -42) + (rsakey "I'm not a RSA key" 42) + (dsakey "I'm not a DSA key" 42) + (banner 12345) + (log-verbosity -1 5) + (blocking-mode 42 "string"))) + (log (test-runner-aux-value (test-runner-current))) + (res #t)) + + (for-each + (lambda (opt) + (for-each + (lambda (val) + (catch #t + (lambda () + (server-set! server (car opt) val) + (format log " opt: ~a, val: ~a -- passed mistakenly~%" + (car opt) val) + (set! res #f)) + (lambda (key . args) + #t))) + (cdr opt))) + options) + res)) + +(test-assert "make-server" + (let ((topdir (getenv "abs_top_srcdir"))) + (make-server #:bindaddr "127.0.0.1" + #:bindport 123456 + #:rsakey (format #f "~a/tests/rsakey" topdir) + #:dsakey (format #f "~a/tests/dsakey" topdir) + #:banner "banner" + #:log-verbosity 1 + #:blocking-mode #f))) + +(test-assert "server-listen" + (let* ((topdir (getenv "abs_top_srcdir")) + (server (make-server #:bindaddr "127.0.0.1" + #:bindport 123456 + #:rsakey (format #f "~a/tests/rsakey" topdir) + #:log-verbosity 1))) + (server-listen server) + #t)) + (test-end "server") (exit (= (test-runner-fail-count (test-runner-current)) 0)) -- cgit v1.2.3