1 files changed, 6 insertions, 0 deletions
diff --git a/tests/test.mew b/tests/test.mew
index 837edd8..633588a 100644
--- a/tests/test.mew
+++ b/tests/test.mew
@@ -285,6 +285,12 @@
   (test 42 ((op* * 7) 2 3))
   (test 42 ((op* * 2 ... 3) 7)))
 
+(test-group "cr"
+  (test '(foo) (cr '(foo)))
+  (test 42 (cr 42))
+  (test-error (cr))
+  (test-error (cr 42 43)))
+
 (test-group "rep"
   (test #t (void? (rep loop ())))
   (test 42 (rep loop (x 27 y 5)