blob: b5a9f658b90a3b91db1270b669301f8abb77bd77 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
(import :test)
(test.test "Identity equality" (seq
((test.assert-eq false false))
((test.assert-eq true true))))
(test.test "Not behaves correctly" (seq
((test.assert-eq (not false) true))
((test.assert-eq (not true) false))))
(test.test "And behaves correctly" (seq
((test.assert-eq (& true true) true))
((test.assert-eq (& true false) false))
((test.assert-eq (& false true) false))
((test.assert-eq (& false false) false))))
(test.test "Or behaves correctly" (seq
((test.assert-eq (| true true) true))
((test.assert-eq (| true false) true))
((test.assert-eq (| false true) true))
((test.assert-eq (| false false) false))))
(test.test "Hashes" (seq
(def funnyhash (hash.new :test1 1 :test2 2))
((test.assert-eq
(hash.merge funnyhash (hash.new :test1 2))
(hash.new :test1 2 :test2 2)))
((test.assert-eq funnyhash (hash.new :test1 1 :test2 2)))
((test.assert-eq (hash.get funnyhash :test1) 1))
((test.assert-eq (hash.get funnyhash :tesst3) nil))
))
|
