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