mirror of
https://github.com/carp-lang/Carp.git
synced 2024-09-11 05:25:28 +03:00
61 lines
1.8 KiB
Plaintext
61 lines
1.8 KiB
Plaintext
(load "Test.carp")
|
|
(use Test)
|
|
|
|
(load "StdInt.carp")
|
|
(use Int16)
|
|
|
|
(deftest test
|
|
(assert-equal test
|
|
(from-long 3l)
|
|
(+ (from-long 1l) (from-long 2l))
|
|
"addition works")
|
|
(assert-equal test
|
|
(from-long 3l)
|
|
(- (from-long 2l) (from-long -1l))
|
|
"subtraction works")
|
|
(assert-equal test
|
|
(from-long -4l)
|
|
(* (from-long 2l) (from-long -2l))
|
|
"multiplication works")
|
|
(assert-equal test
|
|
(from-long 2l)
|
|
(/ (from-long 5l) (from-long 2l))
|
|
"division works")
|
|
(assert-equal test
|
|
(from-long 2l)
|
|
(/ (from-long 5l) (from-long 2l))
|
|
"division works")
|
|
(assert-equal test
|
|
(from-long 8l)
|
|
(bit-shift-left (from-long 2l) (from-long 2l))
|
|
"shift left works")
|
|
(assert-equal test
|
|
(from-long 1l)
|
|
(bit-shift-right (from-long 4l) (from-long 2l))
|
|
"shift right works")
|
|
(assert-equal test
|
|
(from-long 6l)
|
|
(bit-or (from-long 4l) (from-long 2l))
|
|
"binary or works")
|
|
(assert-equal test
|
|
(from-long 2l)
|
|
(bit-and (from-long 6l) (from-long 3l))
|
|
"binary and works")
|
|
(assert-equal test
|
|
(from-long -129l)
|
|
(bit-not (from-long 128l))
|
|
"binary not works")
|
|
(assert-equal test
|
|
(from-long 5l)
|
|
(bit-xor (from-long 6l) (from-long 3l))
|
|
"binary xor works")
|
|
(assert-equal test
|
|
5l
|
|
(to-long (from-long 5l))
|
|
"conversion works")
|
|
(assert-equal test
|
|
"Int16(1)"
|
|
&(str (from-long 1l))
|
|
"str works")
|
|
)
|