mirror of
https://github.com/carp-lang/Carp.git
synced 2024-09-17 08:27:45 +03:00
18 lines
448 B
Plaintext
18 lines
448 B
Plaintext
|
(load "Test.carp")
|
||
|
|
|
||
|
|
(use Test)
|
||
|
|
(use Pointer)
|
||
|
|
|
||
|
|
(deftest test
|
||
|
|
(let [arr [1 2 3 4]]
|
||
|
|
(assert-equal test
|
||
|
|
&(Array.copy-map &address &arr)
|
||
|
|
&(Array.copy-map &address &arr)
|
||
|
|
"address works I"))
|
||
|
|
(assert-not-equal test
|
||
|
|
&(Array.copy-map &address &[1 2 3 4])
|
||
|
|
&(Array.copy-map &address &[1 2 3 4])
|
||
|
|
"address works II"
|
||
|
|
)
|
||
|
|
)
|