Carp/test/char.carp

(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")
)