mirror of
https://github.com/carp-lang/Carp.git
synced 2024-11-05 18:21:40 +03:00
51 lines
1.3 KiB
Plaintext
51 lines
1.3 KiB
Plaintext
|
(load "Test.carp")
|
||
|
|
|
||
|
|
(use-all Byte Test)
|
||
|
|
|
||
|
|
(deftest test
|
||
|
|
(assert-equal test
|
||
|
|
1b
|
||
|
|
(min 1b 2b)
|
||
|
|
"min works as expected")
|
||
|
|
(assert-equal test
|
||
|
|
2b
|
||
|
|
(max 1b 2b)
|
||
|
|
"max works as expected")
|
||
|
|
(assert-equal test
|
||
|
|
false
|
||
|
|
(even? 3b)
|
||
|
|
"even? works as expected")
|
||
|
|
(assert-equal test
|
||
|
|
true
|
||
|
|
(odd? 3b)
|
||
|
|
"odd? works as expected")
|
||
|
|
(assert-equal test
|
||
|
|
1b
|
||
|
|
(bit-and 3b 5b)
|
||
|
|
"bit-and works as expected")
|
||
|
|
(assert-equal test
|
||
|
|
5b
|
||
|
|
(bit-or 1b 4b)
|
||
|
|
"bit-or works as expected")
|
||
|
|
(assert-equal test
|
||
|
|
4b
|
||
|
|
(bit-xor 1b 5b)
|
||
|
|
"bit-xor works as expected")
|
||
|
|
(assert-equal test
|
||
|
|
1b
|
||
|
|
(bit-not 254b)
|
||
|
|
"bit-not works as expected")
|
||
|
|
(assert-equal test
|
||
|
|
8b
|
||
|
|
(bit-shift-left 2b 2b)
|
||
|
|
"bit-shift-left works as expected")
|
||
|
|
(assert-equal test
|
||
|
|
2b
|
||
|
|
(bit-shift-right 16b 3b)
|
||
|
|
"bit-shift-right works as expected")
|
||
|
|
(assert-equal test
|
||
|
|
1
|
||
|
|
(/ 3 2)
|
||
|
|
"integer division truncates as expected")
|
||
|
|
)
|