2008-03-06 14:54:15 -05:00
|
|
|
USING: io io.files io.streams.string io.encodings.utf8
|
2008-03-08 03:51:26 -05:00
|
|
|
http.server.templating.fhtml kernel tools.test sequences
|
|
|
|
parser ;
|
2008-03-05 22:38:15 -05:00
|
|
|
IN: http.server.templating.fhtml.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
: test-template ( path -- ? )
|
2008-03-05 22:38:15 -05:00
|
|
|
"extra/http/server/templating/fhtml/test/" swap append
|
2007-09-20 18:09:08 -04:00
|
|
|
[
|
|
|
|
".fhtml" append resource-path
|
2008-02-15 23:20:31 -05:00
|
|
|
[ run-template-file ] with-string-writer
|
2007-09-20 18:09:08 -04:00
|
|
|
] keep
|
2008-02-16 23:17:41 -05:00
|
|
|
".html" append resource-path utf8 file-contents = ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
[ t ] [ "example" test-template ] unit-test
|
|
|
|
[ t ] [ "bug" test-template ] unit-test
|
|
|
|
[ t ] [ "stack" test-template ] unit-test
|
|
|
|
|
2008-03-08 03:51:26 -05:00
|
|
|
[
|
|
|
|
[ ] [ "<%\n%>" parse-template drop ] unit-test
|
|
|
|
] with-file-vocabs
|