mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-11 20:49:05 +03:00
47 lines
1.2 KiB
Plaintext
47 lines
1.2 KiB
Plaintext
(load "Test.carp")
|
|
(use Test)
|
|
|
|
(defn main []
|
|
(with-test test
|
|
(assert-equal test
|
|
"c"
|
|
&(format "%c" \c)
|
|
"format works on chars"
|
|
)
|
|
(assert-equal test
|
|
"1"
|
|
&(format "%d" true)
|
|
"format works on bools"
|
|
)
|
|
(assert-equal test
|
|
"10"
|
|
&(format "%d" 10)
|
|
"format works on ints"
|
|
)
|
|
(assert-equal test
|
|
"10"
|
|
&(format "%ld" 10)
|
|
"format works on longs"
|
|
)
|
|
(assert-equal test
|
|
"10.0"
|
|
&(format "%.1f" 10.0f)
|
|
"format works on floats"
|
|
)
|
|
(assert-equal test
|
|
"10.050"
|
|
&(format "%2.3f" 10.05)
|
|
"format works on doubles"
|
|
)
|
|
(assert-equal test
|
|
"outside string: inside string :outside string"
|
|
&(format "outside string: %s :outside string" "inside string")
|
|
"format works on strings"
|
|
)
|
|
(assert-equal test
|
|
"10 % 12.0 yay"
|
|
&(fmt "%d %% %.1f %s" 10 12.0 "yay")
|
|
"fmt macro works"
|
|
)
|
|
(print-test-results test)))
|