apply patches from Daniel Janus

[getopt.git] / tests.lisp

diff --git a/tests.lisp b/tests.lisp
index f8f657458420abcb2b47d83f5c6c3f2a11e7a082..7b1610bb39639721a1d716f93debfcdfefbbb010 100644 (file)
--- 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)