X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests.lisp;h=5790baaa35ab825d6f370ae279a3dffc97dc4291;hb=eef26086e56d5cc18542dd8a7c10bed4c4341b25;hp=d863b6fa14cd725d50d19a6c7bf3ab1e4af60f17;hpb=6f02e1d3632a72a98c66def70d68ea2d4020e227;p=getopt.git

diff --git a/tests.lisp b/tests.lisp
index d863b6f..5790baa 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -7,7 +7,7 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Sep 2003
 ;;;;
-;;;; $Id: tests.lisp 7819 2003-09-11 16:20:23Z kevin $
+;;;; $Id$
 ;;;;
 ;;;; This file is Copyright (c) 2003 by Kevin M. Rosenberg
 ;;;;
@@ -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)