From d768cc69f082120d761fa8976ba72cc2afd9a04c Mon Sep 17 00:00:00 2001 From: Chris Hall Date: Tue, 26 Jun 2018 17:09:33 +1000 Subject: [PATCH] adding test.char --- test/char.carp | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 test/char.carp diff --git a/test/char.carp b/test/char.carp new file mode 100644 index 00000000..fc11f5d6 --- /dev/null +++ b/test/char.carp @@ -0,0 +1,34 @@ +(use Char) + +(load "Test.carp") +(use Test) + +(defn main [] + (with-test 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") + (print-test-results test) + ) +)