r7818: add argument processing using #\=, big refactoring, more tests added and passed

[kmrcl.git] / tests.lisp

diff --git a/tests.lisp b/tests.lisp
index 182bddfd4a4d634954bea86522ae3351bc77aa7f..08a205da30691231b29a0c7be677f9d796e8502a 100644 (file)
--- 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)