blob: a7758bb75db1c6daed28972c03a6964e0e28fa26 (
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))))
|
