From 68986fe0410584c6934c835bb0ee784655f5f8c5 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Tue, 11 Jan 2022 22:01:23 -0800
Subject: Move scheme compiler into a separate directory.

---
 match-test.csc | 87 ----------------------------------------------------------
 1 file changed, 87 deletions(-)
 delete mode 100644 match-test.csc

(limited to 'match-test.csc')

diff --git a/match-test.csc b/match-test.csc
deleted file mode 100644
index 31e7afa..0000000
--- a/match-test.csc
+++ /dev/null
@@ -1,87 +0,0 @@
-(import (scheme base)
-        (only (csc testing) assert-equal test)
-        (csc match))
-
-
-(test match-cond
-  (assert-equal
-    3
-    (match 3
-      ((! 0) 0)
-      ((! 1) 1)
-      ((! 2) 2)
-      ((! 3) 3)
-      (_ 4))))
-
-
-(test match-list
-  (assert-equal
-    2
-    (match '(1 2 3)
-      ('() 0)
-      (((! 1) (! 2)) 1)
-      (((! 1) (! 2) (! 3)) 2)
-      (((! 1) (! 2) (! 3) (! 4)) 3)
-      (_ 4))))
-
-
-(test match-binding
-  (assert-equal
-    2
-    (match '(1 2 3)
-      (((! 1) x (! 3)) x))))
-
-
-(test match-destructuring
-  (assert-equal
-    1
-    (match '(1 2 3)
-      ('() 0)
-      ((head . _) head))))
-
-
-(test match-ignore
-  (assert-equal
-    2
-    (match '(1 2 3)
-      ((_ _ _ _) 0)
-      (((! 2) _ _) 1)
-      (((! 1) _ _) 2)
-      (_ 3))))
-
-
-(test match-improper-list
-  (assert-equal
-    2
-    (match '(1 2 3)
-      (((! 2) . _) 1)
-      (((! 1) . x) (car x))
-      (_ 3))))
-
-
-(test match-symbol
-  (assert-equal
-    2
-    (match 'b
-      ((! 'a) 1)
-      ((! 'b) 2)
-      (_ 3))))
-
-
-(test match-when
-  (assert-equal
-    3
-    (match 'b
-      ((! 'a) 1)
-      ((! 'b) (when #f) 2)
-      ((! 'b) (when #t) 3)
-      (_ 4))))
-
-
-(test match-when-depending-on-pattern-variable
-  (assert-equal
-    2
-    (match 10
-      (n (when (= 1 n)) 1)
-      (n (when (= 10 n)) 2)
-      (_ 3))))
-- 
cgit v1.3.1