blob: 4db31cef4973161fd74a04df92dcd87b8e5b6167 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
(assert-error (eq 1 2 3))
(assert-error (equal 1 2 3))
(assert (eq 1 1))
(assert (eq 'a 'a))
(assert (eq 1.0 1.0))
(assert (eq #\a #\a))
(assert (eq #f #f))
(assert (eq nil nil))
(assert (eq #t #t))
(assert (not (eq 1 2)))
(assert (not (eq "a" "a")))
(assert (not (eq 'a 'b)))
(assert (not (eq '(1 2) '(1 2))))
(assert (equal 1 1))
(assert (equal 'a 'a))
(assert (equal "a" "a"))
(assert (equal 1.0 1.0))
(assert (equal #\a #\a))
(assert (equal #f #f))
(assert (equal '(1 2) '(1 2)))
(assert (not (equal 1 2)))
(assert (not (equal 'a 'b)))
(assert (not (equal "a" "b")))
(assert (not (equal '(1 2 3) '(1 2))))
|
