mirror of
https://github.com/edeproject/ede.git
synced 2023-08-10 21:13:03 +03:00
19 lines
245 B
Scheme
19 lines
245 B
Scheme
|
;;
|
||
|
|
;; if-not expression
|
||
|
|
;;
|
||
|
|
|
||
|
|
(load "../lib/common.ss")
|
||
|
|
|
||
|
|
(ut-add-test
|
||
|
|
"Check 'if-not' expression"
|
||
|
|
(begin
|
||
|
|
(define a 0)
|
||
|
|
(define b 1)
|
||
|
|
|
||
|
|
(and
|
||
|
|
(if-not a #f #t)
|
||
|
|
(if-not (= a 3) #t #f)
|
||
|
|
(if-not (= b 1) #f #t)
|
||
|
|
(if-not (= b 0) #t #f)
|
||
|
|
)))
|