carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-11-14 18:47:42 +03:00
Code Issues Projects Releases Wiki Activity

adding test.char

Browse Source
This commit is contained in:
Chris Hall 2018-06-26 17:09:33 +10:00
parent 16bdd7f854
commit d768cc69f0
1 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
test/char.carp Normal file
View File

@ -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)
)
)