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

Fixing furnace test/docs

db4
Daniel Ehrenberg 2009-02-09 16:46:02 -06:00
parent 5a90a0aae5
commit 1279d6e8ea
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/furnace/furnace-tests.factor
View File

@ -1,7 +1,7 @@
IN: furnace.tests IN: furnace.tests
USING: http http.server.dispatchers http.server.responses USING: http http.server.dispatchers http.server.responses
http.server furnace furnace.utilities tools.test kernel http.server furnace furnace.utilities tools.test kernel
namespaces accessors io.streams.string urls ; namespaces accessors io.streams.string urls xml.writer ;
TUPLE: funny-dispatcher < dispatcher ; TUPLE: funny-dispatcher < dispatcher ;
: <funny-dispatcher> funny-dispatcher new-dispatcher ; : <funny-dispatcher> funny-dispatcher new-dispatcher ;
@ -31,7 +31,7 @@ M: base-path-check-responder call-responder*
] unit-test ] unit-test
[ "<input type=\"hidden\" value=\"&amp;&amp;&amp;\" name=\"foo\"/>" ] [ "<input type=\"hidden\" value=\"&amp;&amp;&amp;\" name=\"foo\"/>" ]
[ [ "&&&" "foo" hidden-form-field ] with-string-writer ] [ "&&&" "foo" hidden-form-field xml>string ]
unit-test unit-test
[ f ] [ <request> request [ referrer ] with-variable ] unit-test [ f ] [ <request> request [ referrer ] with-variable ] unit-test

4
basis/furnace/utilities/utilities-docs.factor
View File

@ -25,8 +25,8 @@ HELP: hidden-form-field
{ $notes "This word is used by session management, conversation scope and asides." } { $notes "This word is used by session management, conversation scope and asides." }
{ $examples { $examples
{ $example { $example
"USING: furnace.utilities io ;" "USING: furnace.utilities io xml.writer ;"
"\"bar\" \"foo\" hidden-form-field nl" "\"bar\" \"foo\" hidden-form-field write-xml nl"
"<input type=\"hidden\" value=\"bar\" name=\"foo\"/>" "<input type=\"hidden\" value=\"bar\" name=\"foo\"/>"
} }
} ; } ;