bldc/tests/test_match_12.lisp

11 lines
196 B
Common Lisp

(defun f (x) "kurt")
(check (= (match (f 0)
("bepa" 0)
("eepa" 1)
("kurt" 2)
("apa" 3)
("hej" 4))
2))