Carp/test/char.carp

138 lines
3.7 KiB
Plaintext
Raw Normal View History

2018-06-26 10:09:33 +03:00
(use Char)
(load "Test.carp")
(use Test)
2018-11-07 18:11:38 +03:00
(deftest test
2020-05-18 10:52:01 +03:00
(assert-equal test
(String.head " ")
\space
"space literal works")
(assert-equal test
(String.head "\t")
\tab
"tab literal works")
(assert-equal test
(String.head "\t")
\tab
"tab literal works")
(assert-equal test
(String.head "\n")
\newline
"newline literal works")
(assert-equal test
(String.head "\b")
\backspace
"backspace literal works")
(assert-equal test
(String.head "\r")
\return
"return literal work")
(assert-equal test
(String.head "\f")
\formfeed
"formfeed literal works")
2020-05-09 13:21:14 +03:00
(assert-equal test
"Π"
&(str \u03a0)
"unicode literals work")
2020-05-09 13:21:14 +03:00
(assert-equal test
"a"
&(str \a)
"str works with ASCII")
2020-05-09 13:21:14 +03:00
(assert-equal test
"ñ"
&(str \ñ)
"str works with Latin1")
(assert-equal test
"😲"
&(str \😲)
"str works with Emoji")
2018-11-07 18:11:38 +03:00
(assert-true test
(= \a \a)
"char = works as expected I")
(assert-true test
(= &\a &\a)
"char = works as expected II")
(assert-true test
(/= \a \b)
"char /= works as expected I")
(assert-true test
(/= &\a &\b)
"char /= works as expected II")
(assert-true test
(< \a \b)
"char < works as expected I")
(assert-true test
(< &\a &\b)
"char < works as expected II")
(assert-true test
(> \b \a)
"char > works as expected I")
(assert-true test
(> &\b &\a)
"char > works as expected II")
(assert-equal test
0
(meaning &\0)
"meaning works as expected 0")
(assert-equal test
9
(meaning &\9)
"meaning works as expected 9")
(assert-true test
(upper-case? \A)
"upper-case? works as expected I")
(assert-false test
(upper-case? \a)
"upper-case? works as expected II")
(assert-false test
(upper-case? \#)
"upper-case? works as expected III")
(assert-true test
(lower-case? \a)
"lower-case? works as expected I")
(assert-false test
(lower-case? \A)
"lower-case? works as expected II")
(assert-false test
(lower-case? \#)
"lower-case? works as expected III")
(assert-true test
(alpha? \a)
"alpha? works as expected I")
(assert-true test
(alpha? \A)
"alpha? works as expected II")
(assert-false test
(alpha? \#)
"alpha? works as expected III")
(assert-false test
(alpha? \0)
"alpha? works as expected III")
(assert-false test
(num? \a)
"num? works as expected I")
(assert-false test
(num? \A)
"num? works as expected II")
(assert-false test
(num? \#)
"num? works as expected III")
(assert-true test
(num? \0)
"num? works as expected III")
(assert-true test
(alphanum? \a)
"alphanum? works as expected I")
(assert-true test
(alphanum? \A)
"alphanum? works as expected II")
(assert-false test
(alphanum? \#)
"alphanum? works as expected III")
(assert-true test
(alphanum? \0)
"alphanum? works as expected III")
2018-06-26 10:09:33 +03:00
)