1 USING: io io.files io.streams.string io.encodings.utf8
2 html.templates html.templates.fhtml kernel
3 tools.test sequences parser splitting prettyprint ;
4 IN: html.templates.fhtml.tests
6 : test-template ( path -- ? )
7 "vocab:html/templates/fhtml/test/"
9 [ ".fhtml" append <fhtml> [ call-template ] with-string-writer ]
10 [ ".html" append utf8 file-contents ] bi
13 [ t ] [ "example" test-template ] unit-test
14 [ t ] [ "bug" test-template ] unit-test
15 [ t ] [ "stack" test-template ] unit-test
18 [ ] [ "<%\n%>" parse-template drop ] unit-test