mirror of
https://github.com/carp-lang/Carp.git
synced 2024-11-05 18:21:40 +03:00
21 lines
376 B
Plaintext
21 lines
376 B
Plaintext
(use StaticArray)
|
|
|
|
(load "Test.carp")
|
|
(use Test)
|
|
|
|
(deftest test
|
|
|
|
(assert-true test
|
|
(= $[1 2 3] $[1 2 3])
|
|
"= works as expected I")
|
|
|
|
(assert-false test
|
|
(= $[1 2 3] $[1 2 3 4 5])
|
|
"= works as expected II")
|
|
|
|
(assert-false test
|
|
(= $[1 1 1] $[0 0 0])
|
|
"= works as expected III")
|
|
|
|
)
|