r8724: Automated commit for Debian build of getopt upstream-version-1.1.0

[getopt.git] / tests.lisp

diff --git a/tests.lisp b/tests.lisp
index 26b2c48df464759b1c5752bd90514186e635a473..5790baaa35ab825d6f370ae279a3dffc97dc4291 100644 (file)
--- a/tests.lisp
+++ b/tests.lisp
@@ -66,5 +66,7 @@
               (getopt '("--a=10") '(("along" :optional)))) 
       (test-mv '(nil nil ("a"))
               (getopt '("--a=10") '(("along" :optional) ("aboot" :optional))))
+      (test-mv '(("a") nil nil)
+               (getopt '("a") '(("a" :none))))
       ))
   t)