projects
/
getopt.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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))))
(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)
))
t)