Move scheme compiler into a separate directory.

1 files changed, 35 insertions, 0 deletions

diff --git a/csc/sort-test.csc b/csc/sort-test.csc
new file mode 100644
index 0000000..dec2a53
--- /dev/null
+++ b/csc/sort-test.csc
@@ -0,0 +1,35 @@
+(import (scheme base)
+        (only (csc testing)
+          assert-equal
+          test)
+        (csc sort))
+
+
+(test sort-ten-elem
+  (assert-equal
+    '(-2 0 2 3 4 4 5 6 9 100)
+    (sort < '(9 4 5 100 3 2 4 6 0 -2))))
+
+
+(test sort-empty
+  (assert-equal '() (sort < '())))
+
+
+(test sort-singleton
+  (assert-equal '(1) (sort < '(1))))
+
+
+(test sort-two
+  (assert-equal '(1 2) (sort < '(2 1))))
+
+
+(test sort-reversed
+  (assert-equal
+    '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20)
+    (sort < '(20 19 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1))))
+
+
+(test sort-already-sorted
+  (assert-equal
+    '(1 2 3 4 5 6 7 8 9 10)
+    (sort < '(1 2 3 4 5 6 7 8 9 10))))