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

Modified Files: cli-parser-test.lisp Log Message: reindentation.

Date: Sat Mar 19 23:24:02 2005 Author: dbueno

Index: cl-cli-parser/cli-parser-test.lisp diff -u cl-cli-parser/cli-parser-test.lisp:1.2 cl-cli-parser/cli-parser-test.lisp:1.3 --- cl-cli-parser/cli-parser-test.lisp:1.2 Sat Mar 19 23:18:43 2005 +++ cl-cli-parser/cli-parser-test.lisp Sat Mar 19 23:24:02 2005 @@ -1,4 +1,4 @@ -;;; $Id: cli-parser-test.lisp,v 1.2 2005/03/19 22:18:43 dbueno Exp $ +;;; $Id: cli-parser-test.lisp,v 1.3 2005/03/19 22:24:02 dbueno Exp $ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; AGNS - Automatic (G-something) N-gram Spelling Corrector ;;; Denis Bueno @@ -43,18 +43,20 @@ (check (full-opt-p "-k 3"))))

(deftest test-end-opt-name () - (check (= 7 (end-opt-name "--crazy")) - (= 2 (end-opt-name "-c")) - (= 7 (end-opt-name "--happy=25")) - (= 7 (end-opt-name "--happy 25")))) + (check + (= 7 (end-opt-name "--crazy")) + (= 2 (end-opt-name "-c")) + (= 7 (end-opt-name "--happy=25")) + (= 7 (end-opt-name "--happy 25"))))

(deftest test-opt-name () - (check (string="crazy" (opt-name "--crazy")) - (string= "o" (opt-name "-o")) - (string= "crazy" (opt-name "--crazy=1299")) - (string= "o" (opt-name "-o=678")) - (string= "crazy" (opt-name "--crazy 1299")) - (string= "o" (opt-name "-o 678")))) + (check + (string="crazy" (opt-name "--crazy")) + (string= "o" (opt-name "-o")) + (string= "crazy" (opt-name "--crazy=1299")) + (string= "o" (opt-name "-o=678")) + (string= "crazy" (opt-name "--crazy 1299")) + (string= "o" (opt-name "-o 678"))))

(deftest test-opt-values () (check @@ -108,6 +110,6 @@ (setf (gethash "ornithology" resl1) (list"x-value") (gethash "artaxerxes" resl1) (list "y-value"))

- (check resl1 (cli-parse-hash test1 *test-cli-opts*)))) + (check (equalp resl1 (cli-parse-hash test1 *test-cli-opts*)))))

;;;; EOF