Move scheme compiler into a separate directory.

1 files changed, 24 insertions, 0 deletions

diff --git a/csc/linker-test.csc b/csc/linker-test.csc
new file mode 100644
index 0000000..084e9ae
--- /dev/null
+++ b/csc/linker-test.csc
@@ -0,0 +1,24 @@
+(import (scheme base)
+        (only (csc encoding) encode)
+        (only (csc testing)
+          assert-equal
+          test)
+        (csc linker))
+
+
+(test link-if
+  (assert-equal
+    (encode '((const 5) (const 1) (if 2) (const 5) add exit))
+    (link '((const 5) (const 1) (if "label1") (const 5) add (label "label1") exit))))
+
+
+(test link-backwards-if
+  (assert-equal
+    (encode '((const 10) (const 5) add (if -3)))
+    (link '((const 10) (label "label1") (const 5) add (if "label1")))))
+
+
+(test link-call
+  (assert-equal
+    (encode '((call 3) (const 10) exit (const 5) exit))
+    (link '((call "label1") (const 10) (label "label0") exit (label "label1") (const 5) exit))))