[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-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