X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=tests.lisp;h=08a205da30691231b29a0c7be677f9d796e8502a;hp=182bddfd4a4d634954bea86522ae3351bc77aa7f;hb=ea87515673ba2fd46e6e1ad270c4abf88d575a19;hpb=2cfe7dc5fb016ef08bb70e3eabed39c44dad468a

diff --git a/tests.lisp b/tests.lisp
index 182bddf..08a205d 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -195,7 +195,11 @@
 (deftest gopt.7 (getopt '("ab" "--colon" "val" "--" "-c") '(("colon" :optional) ("-c" :none))) ("ab" "-c") (("colon" . "val")) nil)
 (deftest gopt.8 (getopt '("argv" "-c" "cd") '(("c" :required))) ("argv") (("c" . "cd")) nil)
 (deftest gopt.9 (getopt '("argv" "-c") '(("c" :required))) ("argv") nil ("c"))
-
+(deftest gopt.10 (getopt '("argv" "-c=10") '(("c" :required))) ("argv") (("c" . "10")) nil)
+(deftest gopt.11 (getopt '("argv" "-c=10") '(("c" :none))) ("argv") nil ("c"))
+(deftest gopt.12 (getopt '("--along=10") '(("along" :optional))) nil (("along" . "10")) nil)
+(deftest gopt.13 (getopt '("--along=10") '(("along" :none))) nil nil ("along")) 
+  
 ;;; MOP Testing
 
 (eval-when (:compile-toplevel :load-toplevel :execute)