Permalink
Browse files

Add complex or+guard test case

  • Loading branch information...
1 parent a8d5e92 commit c7393ddea8bd360ec8ba2c4505b2cbcaf0bf21ec Tomohiro Matsuyama committed Nov 19, 2012
Showing with 5 additions and 0 deletions.
  1. +5 −0 test/suite.lisp
View
@@ -175,6 +175,11 @@
(or (guard x (eql x 3))
(or (guard x (eql x 4))
(guard x (eql x 5)))))))
+ (is-match '(((1)))
+ (list (or (guard x (eql x 1))
+ (list (or (guard x (eql x 1))
+ (list (or (guard x (eql x 1))
+ (list))))))))
;; when/unless
(is-match 1 (when t))
(is-not-match 1 (when nil))

0 comments on commit c7393dd

Please sign in to comment.