lesson-lisp/tests/equiv.scm

(begin
  ;;; equal? ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ; No args
  (assert-true  (equal?))
  ; A single arg
  (assert-true  (equal? '()))
  (assert-true  (equal? +))
  (assert-true  (equal? (cons 123 456)))
  (assert-true  (equal? #false))
  (assert-true  (equal? #true))
  ;(assert-true  (equal? #\n))
  (assert-true  (equal? 'foo))
  (assert-true  (equal? "foo"))
  (assert-true  (equal? 123))
  ; Two equal args
  (assert-true  (equal? '() '()))
  (assert-true  (equal? + +))
  (assert-true  (equal? (cons 123 456) (cons 123 456)))
  (assert-true  (equal? #false #false))
  (assert-true  (equal? #true #true))
  ;(assert-true  (equal? #\n #\n))
  (assert-true  (equal? 'foo 'foo))
  (assert-true  (equal? "foo" "foo"))
  (assert-true  (equal? 123 123))
  ; Two different args
  (assert-false (equal? '() '(1)))
  (assert-false (equal? + -))
  (assert-false (equal? (cons 123 456) (cons 123 789)))
  (assert-false (equal? #false #true))
  (assert-false (equal? #true #false))
  ;(assert-false (equal? #\n #\t))
  (assert-false (equal? 'foo 'bar))
  (assert-false (equal? "foo" "bar"))
  (assert-false (equal? 123 789))
  ; Three equal args
  (assert-true  (equal? '() '() '()))
  (assert-true  (equal? + + +))
  (assert-true  (equal? (cons 123 456) (cons 123 456) (cons 123 456)))
  (assert-true  (equal? #false #false #false))
  (assert-true  (equal? #true #true #true))
  ;(assert-true  (equal? #\n #\n #\n))
  (assert-true  (equal? 'foo 'foo 'foo))
  (assert-true  (equal? "foo" "foo" "foo"))
  (assert-true  (equal? 123 123 123))
  ; Three different args
  (assert-false (equal? '() '() '(1)))
  (assert-false (equal? + + -))
  (assert-false (equal? (cons 123 456) (cons 123 456) (cons 123 789)))
  (assert-false (equal? #false #false #true))
  (assert-false (equal? #true #true #false))
  ;(assert-false (equal? #\n #\n #\t))
  (assert-false (equal? 'foo 'foo 'bar))
  (assert-false (equal? "foo" "foo" "bar"))
  (assert-false (equal? 123 123 789))
)