[cl-cli-parser-cvs] CVS update: cl-cli-parser/cli-parser-test.lisp

[Denis Bueno]

Update of /project/cl-cli-parser/cvsroot/cl-cli-parser
In directory common-lisp.net:/tmp/cvs-serv10105

Modified Files:
	cli-parser-test.lisp 
Log Message:
Fix up a test which was failing because it wasn't coded up correctly in the
first place.

Date: Sun Mar 20 00:08:25 2005
Author: dbueno

Index: cl-cli-parser/cli-parser-test.lisp
diff -u cl-cli-parser/cli-parser-test.lisp:1.3 cl-cli-parser/cli-parser-test.lisp:1.4
--- cl-cli-parser/cli-parser-test.lisp:1.3	Sat Mar 19 23:24:02 2005
+++ cl-cli-parser/cli-parser-test.lisp	Sun Mar 20 00:08:23 2005
@@ -1,4 +1,4 @@
-;;; $Id: cli-parser-test.lisp,v 1.3 2005/03/19 22:24:02 dbueno Exp $
+;;; $Id: cli-parser-test.lisp,v 1.4 2005/03/19 23:08:23 dbueno Exp $
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; AGNS - Automatic (G-something) N-gram Spelling Corrector
 ;;; Denis Bueno
@@ -7,7 +7,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (in-package :cli-parser)
-(use-package :lunit)
+#.(use-package :lunit)
 
 
 (deftest test-opt-p ()
@@ -37,10 +37,10 @@
     (check (full-opt-p opt3))
     (check (full-opt-p "--thing 1 2 3"))
     (check (full-opt-p "--thing 1,2,3"))
-    (check (full-opt-p opt4))
-    (check (full-opt-p "-cookycrisp"))
-    (check (full-opt-p "-k=3"))
-    (check (full-opt-p "-k 3"))))
+    (check (not (full-opt-p opt4)))
+    (check (not (full-opt-p "-cookycrisp")))
+    (check (not (full-opt-p "-k=3")))
+    (check (not (full-opt-p "-k 3")))))
 
 (deftest test-end-opt-name ()
   (check