24 lines
607 B
Text
24 lines
607 B
Text
|
;; -*- mode: lisp; -*-
|
||
|
|
||
|
(assert (= (not true) false))
|
||
|
(assert (= (not false) true))
|
||
|
|
||
|
(assert (and true))
|
||
|
(assert (= (and false) false))
|
||
|
(assert (and true true))
|
||
|
(assert (= (and true false) false))
|
||
|
(assert (= (and false true) false))
|
||
|
|
||
|
(assert (and true))
|
||
|
(assert (= (or false) false))
|
||
|
(assert (or true true))
|
||
|
(assert (or true false))
|
||
|
(assert (or false true))
|
||
|
(assert (= (or false false) false))
|
||
|
|
||
|
;; "and" is short-circuiting and should stop evaluation on first "false"
|
||
|
(assert (= (and false (/ 1 0)) false))
|
||
|
|
||
|
;; "and" is short-circuiting and should stop evaluation on first "true"
|
||
|
(assert (or true (/ 1 0)))
|