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