Carp/test/char.carp

94 lines
2.8 KiB
Plaintext

(use Char)
(load "Test.carp")
(use Test)
(deftest test
(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")
)