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