[clhp-cvs] CVS update: clhp/tests/test-suite.lisp clhp/tests/clhp-test.lisp clhp/tests/cgi-test.lisp

[Anthony Ventimiglia]

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"))