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

[Anthony Ventimiglia]

Update of /project/clhp/cvsroot/clhp/tests
In directory common-lisp.net:/tmp/cvs-serv6192/tests

Modified Files:
	cgi-test.lisp 
Log Message:
* cgi.lisp, clhp.lisp (LIST-TO-A-LIST): Moved LIST-TO-A-LIST from
clhp.lisp into cgi.lisp, because I need it there as part of the
rewrite for QUERY-TO-A-LIST. Sooner or later I'll have to merge
all this into a single package so things like this do not have to
happen.

* cgi.lisp (QUERY-TO-A-LIST): Rewrote this mostly to
simplify it, and make it prettier
(*SERVER-ENV*,*QUERY-VARS*) : Converted them to list type a-lists
((A B)(C D)) from the Cons type they had been ((A . B) (C
. D)). This is quite temporary, since I plan on making them hashes
soon. I basically did this because the TAG mechanism needs List
type a-lists, and I wanted to reuese list-to-a-list in
cgi.lisp. So as part of the rewrite to QUERY-TO-A-LIST, this ended
up as a result.

Date: Thu Oct  2 22:40:39 2003
Author: aventimiglia

Index: clhp/tests/cgi-test.lisp
diff -u clhp/tests/cgi-test.lisp:1.3 clhp/tests/cgi-test.lisp:1.4
--- clhp/tests/cgi-test.lisp:1.3	Thu Oct  2 20:38:17 2003
+++ clhp/tests/cgi-test.lisp	Thu Oct  2 22:40:39 2003
@@ -184,21 +184,21 @@
    (make-instance 'function-test-data
 		  :symbol 'cgi::get-data
 		  :pre-function #'(lambda ()
-				    (let ((a (assoc :query_string
-						    cgi::*server-env*)))
+				    (let ((a (car (assoc :query_string
+						    cgi::*server-env*))))
 				      (when a
-					(setf cgi::*server-env*
-					      (remove a cgi::*server-env*))))
-				    (push (cons :query_string
+					(setf cgi:*server-env*
+					      (remove a cgi:*server-env*))))
+				    (push (list :query_string
 						"index=foo&type=bar%20baz")
-					  cgi::*server-env*))
+					  cgi:*server-env*))
 		  :test-args nil
 		  :result-form '(#\i #\n #\d #\e #\x #\= #\f #\o #\o #\& #\t
 				 #\y #\p #\e #\= #\b #\a #\r #\% #\2 #\0 #\b
 				 #\a #\z))
    (make-instance 'function-test-data
 		  :symbol 'cgi::a-list-value
-		  :test-args '(2 '((1 . f) (3 . g) (6 . h) (2 . y)))
+		  :test-args '(2 '((1 f) (3 g) (6 h) (2 y)))
 		  :result-form 'y)
    (make-instance 'output-function-test-data
 		  :symbol 'cgi:debug