diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-01-09 14:06:55 -0800 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-01-09 14:06:55 -0800 |
| commit | d579fede001a09d3a4047a8df71be406ff30e95e (patch) | |
| tree | a4aa6bb6f366c7d645938ff75e09df11d9ebf26f /match-test.csc | |
| parent | Define helper intercalate. (diff) | |
| download | chromatopelma-d579fede001a09d3a4047a8df71be406ff30e95e.tar.zst | |
Add some magic to detect symbols.
I still don't understand this snippet.
Diffstat (limited to 'match-test.csc')
| -rw-r--r-- | match-test.csc | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/match-test.csc b/match-test.csc index e71a2d3..104581b 100644 --- a/match-test.csc +++ b/match-test.csc @@ -14,45 +14,45 @@ (test-case "cond" (match 3 - ((! 0) 0) - ((! 1) 1) - ((! 2) 2) - ((! 3) 3) + (0 0) + (1 1) + (2 2) + (3 3) (_ 4)) 3) (test-case "match-list" (match '(1 2 3) ('() 0) - (((! 1) (! 2)) 1) - (((! 1) (! 2) (! 3)) 2) - (((! 1) (! 2) (! 3) (! 4)) 3) + ((1 2) 1) + ((1 2 3) 2) + ((1 2 3 4) 3) (_ 4)) 2) (test-case "binding" (match '(1 2 3) - (((! 1) x (! 3)) x)) + ((1 x 3) x)) 2) - (test-case + #;(test-case "destructuring" (match '(1 2 3) ('() 0) ((head . _) head)) 1) - (test-case + #;(test-case "ignore" (match '(1 2 3) ((_ _ _ _) 0) - (((! 2) _ _) 1) - (((! 1) _ _) 2) + ((2 _ _) 1) + ((1 _ _) 2) (_ 3)) 2) - (test-case + #;(test-case "improper list" (match '(1 2 3) - (((! 2) . _) 1) - (((! 1) . x) (car x)) + ((2 . _) 1) + ((1 . x) (car x)) (_ 3)) 2)))) (for-each |