X-Git-Url: http://git.kpe.io/?p=getopt.git;a=blobdiff_plain;f=tests.lisp;fp=tests.lisp;h=7b1610bb39639721a1d716f93debfcdfefbbb010;hp=f8f657458420abcb2b47d83f5c6c3f2a11e7a082;hb=24aab4e686c623074115e5eb6f476d6125be21a3;hpb=4a290fc819181811e56e3f11fdfa5090327ae72b

diff --git a/tests.lisp b/tests.lisp
index f8f6574..7b1610b 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -68,5 +68,9 @@
                (getopt '("--a=10") '(("along" :optional) ("aboot" :optional))))
       (test-mv '(("a") nil nil)
                (getopt '("a") '(("a" :none))))
+      (test-mv '(("a") (("foo") ("bar")) nil)
+               (getopt '("a" "--foo" "--bar") '(("foo" :none) ("bar" :none))))
+      (test-mv '(("a") (("foo") ("bar")) nil)
+               (getopt '("a" "--f" "--bar") '(("foo" :none) ("bar" :none))))
       ))
   t)