(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))))