steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cgi: fix for LH{ } changes.

db4
John Benediktsson 2015-11-04 13:06:23 -08:00
parent 02c4ec3630
commit d211bee38b
2 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
extra/cgi/cgi-tests.factor
View File

@ -1,19 +1,17 @@
! Copyright (C) 2009 John Benediktsson
! See http://factorcode.org/license.txt for BSD license
USING: cgi cgi.private kernel tools.test ;
USING: cgi cgi.private kernel linked-assocs tools.test ;
{ t } [ H{ } "" (query-string) = ] unit-test
{ LH{ } } [ "" (query-string) ] unit-test
{ t } [ H{ { "a" { "1" } } { "b" { "2" } } }
"a=1&b=2" (query-string) = ] unit-test
{ LH{ { "a" { "1" } } { "b" { "2" } } } }
[ "a=1&b=2" (query-string) ] unit-test
{ t } [ H{ { "a" { "1" } } { "b" { "2" "3" } } }
"a=1&b=2&b=3" (query-string) = ] unit-test
{ LH{ { "a" { "1" } } { "b" { "2" "3" } } } }
[ "a=1&b=2&b=3" (query-string) ] unit-test
{ t } [ "text/html" (content-type)
[ H{ } = ] [ "text/html" = ] bi* and ] unit-test
{ LH{ } "text/html" } [ "text/html" (content-type) ] unit-test
{ t } [ "text/html; charset=utf-8" (content-type)
[ H{ { "charset" { "utf-8" } } } = ]
[ "text/html" = ] bi* and ] unit-test
{ LH{ { "charset" { "utf-8" } } } "text/html" }
[ "text/html; charset=utf-8" (content-type) ] unit-test

6
extra/cgi/cgi.factor
View File

@ -2,8 +2,8 @@
! See http://factorcode.org/license.txt for BSD license
USING: arrays assocs combinators environment io kernel
math.parser regexp sequences splitting strings unicode.case
urls.encoding ;
linked-assocs math.parser regexp sequences splitting strings
unicode.case urls.encoding ;
IN: cgi
@ -20,7 +20,7 @@ IN: cgi
: (content-type) ( string -- params media/type )
";" split unclip [
[ H{ } clone ] [ first (query-string) ] if-empty
[ LH{ } clone ] [ first (query-string) ] if-empty
] dip ;
: (multipart) ( -- assoc )