Update of /project/clhp/cvsroot/clhp/tests In directory common-lisp.net:/tmp/cvs-serv1666/tests Modified Files: test-suite.lisp clhp-test.lisp cgi-test.lisp Log Message: Fixed cvs keywords Date: Mon Oct 20 23:09:20 2003 Author: aventimiglia Index: clhp/tests/test-suite.lisp diff -u clhp/tests/test-suite.lisp:1.3 clhp/tests/test-suite.lisp:1.4 --- clhp/tests/test-suite.lisp:1.3 Thu Oct 16 12:57:25 2003 +++ clhp/tests/test-suite.lisp Mon Oct 20 23:09:20 2003 @@ -1,4 +1,4 @@ -#+cmu (ext:file-comment "$Id") +#+cmu (ext:file-comment "$Id: test-suite.lisp,v 1.4 2003/10/21 03:09:20 aventimiglia Exp $") ;; ;; CLHP the Common Lisp Hypertext Preprocessor ;; (C) 2003 Anthony J Ventimiglia Index: clhp/tests/clhp-test.lisp diff -u clhp/tests/clhp-test.lisp:1.1 clhp/tests/clhp-test.lisp:1.2 --- clhp/tests/clhp-test.lisp:1.1 Thu Oct 16 12:57:25 2003 +++ clhp/tests/clhp-test.lisp Mon Oct 20 23:09:20 2003 @@ -1,4 +1,4 @@ -#+cmu (ext:file-comment "$Id") +#+cmu (ext:file-comment "$Id: clhp-test.lisp,v 1.2 2003/10/21 03:09:20 aventimiglia Exp $") ;; ;; CLHP the Common Lisp Hypertext Preprocessor ;; (C) 2003 Anthony J Ventimiglia Index: clhp/tests/cgi-test.lisp diff -u clhp/tests/cgi-test.lisp:1.10 clhp/tests/cgi-test.lisp:1.11 --- clhp/tests/cgi-test.lisp:1.10 Thu Oct 16 12:57:25 2003 +++ clhp/tests/cgi-test.lisp Mon Oct 20 23:09:20 2003 @@ -1,4 +1,4 @@ -#+cmu (ext:file-comment "$Id") +#+cmu (ext:file-comment "$Id: cgi-test.lisp,v 1.11 2003/10/21 03:09:20 aventimiglia Exp $") ;; ;; CLHP the Common Lisp Hypertext Preprocessor ;; (C) 2003 Anthony J Ventimiglia @@ -43,19 +43,19 @@ ;; (mapcar #'run-test *cgi-tests*) (defparameter *cgi-tests* (list - (make-instance 'function-test-data - :symbol 'cgi::explode-string - :test-args '("Hello There") - :result-form '(#\H #\e #\l #\l #\o #\Space #\T #\h #\e #\r - #\e)) - (make-instance 'function-test-data - :symbol 'cgi::split-char-list - :test-args '(#\Space (cgi::explode-string "Ab CdE F")) - :result-form '((#\A #\b) (#\C #\d #\E) (#\F))) - (make-instance 'function-test-data - :symbol 'cgi::implode-string - :test-args '((cgi::explode-string "Hello")) - :result-form "Hello") +; (make-instance 'function-test-data +; :symbol 'cgi::explode-string +; :test-args '("Hello There") +; :result-form '(#\H #\e #\l #\l #\o #\Space #\T #\h #\e #\r +; #\e)) +; (make-instance 'function-test-data +; :symbol 'cgi::split-char-list +; :test-args '(#\Space (cgi::explode-string "Ab CdE F")) +; :result-form '((#\A #\b) (#\C #\d #\E) (#\F))) +; (make-instance 'function-test-data +; :symbol 'cgi::implode-string +; :test-args '((cgi::explode-string "Hello")) +; :result-form "Hello") (make-instance 'function-test-data :symbol 'cgi::url-decode-char-list :test-args '((cgi::explode-string "foo%34%2a"))