From 481884fb892f949478dad8d801ced704baea986c Mon Sep 17 00:00:00 2001 From: tomsmeding Date: Mon, 18 Nov 2019 18:36:57 +0100 Subject: Automatic testing of examples --- tests/disabled/match.lisp | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 tests/disabled/match.lisp (limited to 'tests/disabled') diff --git a/tests/disabled/match.lisp b/tests/disabled/match.lisp new file mode 100644 index 0000000..84503e0 --- /dev/null +++ b/tests/disabled/match.lisp @@ -0,0 +1,15 @@ +(define f (x) + (match x + ((1 2 3) "1-2-3") + ((1) "just 1") + ((1 ...) "1 something") + ((n ...) "number something") + ('v "something quoted") + "dunno")) + +(print (f '(1 2 3))) +(print (f '(1))) +(print (f '(1 2 3 4 5))) +(print (f '(2 3 4 5))) +(print (f ''"kaas")) +(print (f "kaas")) -- cgit v1.2.3-54-g00ecf