diff options
| author | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-01-26 15:46:44 +0400 |
|---|---|---|
| committer | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-01-26 15:46:44 +0400 |
| commit | 025b65a7be43ed67d9da02beb5c6c7870e019495 (patch) | |
| tree | 9eb977b6a4078c414152ab7e4868544d11f3aac8 /tests/session.scm | |
| parent | Merge branch 'master' into tests-implementation (diff) | |
| download | guile-ssh-025b65a7be43ed67d9da02beb5c6c7870e019495.tar.gz | |
tests/session.scm ("session?"): New test case.
Diffstat (limited to 'tests/session.scm')
| -rw-r--r-- | tests/session.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/session.scm b/tests/session.scm index 4cd89fa..879baf9 100644 --- a/tests/session.scm +++ b/tests/session.scm @@ -23,6 +23,12 @@ (test-assert "%make-session" (%make-session)) +(test-assert "session?" + (let ((session (%make-session)) + (x "string")) + (and (session? session) + (not (session? x))))) + (test-assert "equal?, check that a session equals to itself" (let ((session (%make-session))) (equal? session session))) |