diff options
| author | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-01-28 21:27:39 +0400 |
|---|---|---|
| committer | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-01-28 21:27:39 +0400 |
| commit | c8d9e09d3b86fe4578e50e2a8adc30e5614cbf28 (patch) | |
| tree | c0cfafecd90572073186d1b707dd5438a8d120ec /tests/server.scm | |
| parent | Use the standard `check' target instead of `tests'. (diff) | |
| download | guile-ssh-c8d9e09d3b86fe4578e50e2a8adc30e5614cbf28.tar.gz | |
tests/server.scm ("server-set!, invalid values"): Improve TC.
* tests/server.scm ("server-set!, invalid values"): Don't check
`bindaddr' with garbage strings because errors will be caught only
on the subsequent call to `server-listen'. The same for `rsakey'
and `dsakey' -- errors will be caught on `server-accept' call.
Diffstat (limited to 'tests/server.scm')
| -rw-r--r-- | tests/server.scm | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/tests/server.scm b/tests/server.scm index 69d130a..faab077 100644 --- a/tests/server.scm +++ b/tests/server.scm @@ -68,11 +68,18 @@ (test-assert "server-set!, invalid values" (let ((server (%make-server)) - (options '((bindaddr "I'm not a IP address" 42) + (options '(;; Errors with wrong IP address format will be + ;; caught on `server-listen' call, so that's the + ;; reason that we don't check `bindaddr' with + ;; garbage strings here. + (bindaddr #f 42) + ;; The same situation with rsa/dsa keys -- errors + ;; will be caught on `server-accept' call. + (rsakey #f 42) + (dsakey #f 42) + (bindport "I'm not a port" -42) (hostkey "invalid value" 1 'invalid-value) - (rsakey "I'm not a RSA key" 42) - (dsakey "I'm not a DSA key" 42) (banner 12345) (log-verbosity -1 0 1 2 3 4 5) (blocking-mode 42 "string"))) |