1 files changed, 18 insertions, 0 deletions
diff --git a/csc/cps-test.csc b/csc/cps-test.csc
new file mode 100644
index 0000000..dd66078
--- /dev/null
+++ b/csc/cps-test.csc
@@ -0,0 +1,18 @@
+(import (scheme base)
+        (only (csc ir2)
+          ir2=?
+          make-atom
+          make-tail
+          make-constant)
+        (only (csc testing)
+          assert-equal
+          test)
+        (csc cps))
+
+
+(test atom-const
+  (assert-equal ir2=?
+    (make-atom
+      (make-constant 5)
+      (make-tail))
+    (ir1->ir2 (make-constant 5))))