diff options
| author | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-01-26 20:15:03 +0400 |
|---|---|---|
| committer | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-01-26 20:15:03 +0400 |
| commit | ac7ea46d4602895f2e032d3cd7623efc8186f334 (patch) | |
| tree | 8d4667f91e05cbe62074d8cb168f982010611582 /tests/server.scm | |
| parent | Merge branch 'master' into tests-implementation (diff) | |
| download | guile-ssh-ac7ea46d4602895f2e032d3cd7623efc8186f334.tar.gz | |
tests/server.scm: Add new TCs.
* tests/server.scm ("server?", "comparison of servers"): New TCs.
Diffstat (limited to 'tests/server.scm')
| -rw-r--r-- | tests/server.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/server.scm b/tests/server.scm index 57acee2..f70a4dd 100644 --- a/tests/server.scm +++ b/tests/server.scm @@ -23,6 +23,18 @@ (test-assert "%make-server" (%make-server)) +(test-assert "server?" + (let ((server (%make-server)) + (x "I'm not a server")) + (and (server? server) + (not (server? x))))) + +(test-assert "comparison of servers" + (let ((s1 (%make-server)) + (s2 (%make-server))) + (and (equal? s1 s1) + (not (equal? s1 s2))))) + (test-assert "server-set!, valid values" (let* ((server (%make-server)) (topdir (getenv "abs_top_srcdir")) |