30 lines
1.1 KiB
Scheme
30 lines
1.1 KiB
Scheme
(begin
|
|
;;; = ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
(assert-equal #true (= 123))
|
|
(assert-equal #true (= 123 123))
|
|
(assert-equal #false (= 123 456))
|
|
(assert-equal #true (= 123 123 123))
|
|
(assert-equal #false (= 456 123 123))
|
|
(assert-equal #false (= 123 456 123))
|
|
(assert-equal #false (= 123 123 456))
|
|
(assert-equal #true (= 123 123 123 123))
|
|
(assert-equal #false (= 456 123 123 123))
|
|
(assert-equal #false (= 123 456 123 123))
|
|
(assert-equal #false (= 123 123 456 123))
|
|
(assert-equal #false (= 123 123 123 456))
|
|
|
|
;;; + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
(assert-equal 0 (+))
|
|
(assert-equal 123 (+ 123))
|
|
(assert-equal 11 (+ 1 10))
|
|
(assert-equal 111 (+ 1 10 100))
|
|
(assert-equal 1111 (+ 1 10 100 1000))
|
|
|
|
;;; - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
(assert-equal 0 (- 0))
|
|
;(assert-equal -123 (- 123))
|
|
(assert-equal 99 (- 100 1))
|
|
(assert-equal 97 (- 100 1 2))
|
|
(assert-equal 94 (- 100 1 2 3))
|
|
(assert-equal 90 (- 100 1 2 3 4))
|
|
)
|