diff options
| author | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-01-26 17:26:38 +0400 |
|---|---|---|
| committer | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-01-26 17:26:38 +0400 |
| commit | cfd33a46dc9c40ba4e251bf6ae839a08e77b180e (patch) | |
| tree | 4c6fea39c0bfb82dd7649069d1f41b82c2165389 /tests/session.scm | |
| parent | tests/session.scm ("session?"): New test case. (diff) | |
| download | guile-ssh-cfd33a46dc9c40ba4e251bf6ae839a08e77b180e.tar.gz | |
tests/session.scm ("comparsion of sessions"): New TC.
* tests/session.scm ("comparsion of sessions"): Use one test case
instead of two separated TCs (equal?/not equal? test).
Diffstat (limited to 'tests/session.scm')
| -rw-r--r-- | tests/session.scm | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/tests/session.scm b/tests/session.scm index 879baf9..a132001 100644 --- a/tests/session.scm +++ b/tests/session.scm @@ -29,14 +29,11 @@ (and (session? session) (not (session? x))))) -(test-assert "equal?, check that a session equals to itself" - (let ((session (%make-session))) - (equal? session session))) - -(test-assert "equal?, check that two sessions aren't equal" - (let ((session1 (%make-session)) - (session2 (%make-session))) - (not (equal? session1 session2)))) +(test-assert "comparsion of sessions" + (let ((s1 (%make-session)) + (s2 (%make-session))) + (and (equal? s1 s1) + (not (equal? s1 s2))))) (test-assert "session-set!, valid values" (let ((session (%make-session)) |