18 lines
522 B
Factor
18 lines
522 B
Factor
USING: io io.files io.streams.string http.server.templating kernel tools.test
|
|
sequences ;
|
|
IN: temporary
|
|
|
|
: test-template ( path -- ? )
|
|
"extra/http/server/templating/test/" swap append
|
|
[
|
|
".fhtml" append resource-path
|
|
[ run-template-file ] with-string-writer
|
|
] keep
|
|
".html" append resource-path file-contents = ;
|
|
|
|
[ t ] [ "example" test-template ] unit-test
|
|
[ t ] [ "bug" test-template ] unit-test
|
|
[ t ] [ "stack" test-template ] unit-test
|
|
|
|
[ ] [ "<%\n%>" parse-template drop ] unit-test
|