From cfd33a46dc9c40ba4e251bf6ae839a08e77b180e Mon Sep 17 00:00:00 2001 From: Artyom Poptsov Date: Sun, 26 Jan 2014 17:26:38 +0400 Subject: 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). --- tests/session.scm | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) (limited to 'tests/session.scm') 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)) -- cgit v1.2.3