aboutsummaryrefslogtreecommitdiffstats
path: root/linker-test.csc
diff options
context:
space:
mode:
Diffstat (limited to 'linker-test.csc')
-rw-r--r--linker-test.csc24
1 files changed, 0 insertions, 24 deletions
diff --git a/linker-test.csc b/linker-test.csc
deleted file mode 100644
index 084e9ae..0000000
--- a/linker-test.csc
+++ /dev/null
@@ -1,24 +0,0 @@
-(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))))