mirror of
https://github.com/carp-lang/Carp.git
synced 2024-11-05 04:44:12 +03:00
19 lines
488 B
Plaintext
19 lines
488 B
Plaintext
(load "Test.carp")
|
|
(use Test)
|
|
|
|
(defndynamic _make-exe-path [pth]
|
|
(String.join (array (Project.get-config "output-directory") pth)))
|
|
|
|
(defmacro make-exe-path [pth]
|
|
(_make-exe-path pth))
|
|
|
|
(deftest test
|
|
(assert-equal test
|
|
1
|
|
(System.get-args-len)
|
|
"System.get-args-len works as expected")
|
|
(assert-equal test
|
|
(make-exe-path "/Untitled")
|
|
(System.get-arg 0)
|
|
"System.get-arg works as expected"))
|