factor/basis/html/templates/fhtml/fhtml-tests.factor

USING: io io.files io.streams.string io.encodings.utf8
html.templates html.templates.fhtml kernel
tools.test sequences parser splitting prettyprint ;
IN: html.templates.fhtml.tests

: test-template ( path -- ? )
    "vocab:html/templates/fhtml/test/"
    prepend
    [ ".fhtml" append <fhtml> [ call-template ] with-string-writer ]
    [ ".html" append utf8 file-contents ] bi
    [ . . ] [ = ] 2bi ;

[ t ] [ "example" test-template ] unit-test
[ t ] [ "bug" test-template ] unit-test
[ t ] [ "stack" test-template ] unit-test

[
    [ ] [ "<%\n%>" parse-template drop ] unit-test
] with-file-vocabs

[
    [ ] [
        """<%
            IN: html.templates.fhtml.tests
            : test-word ( -- ) ;
            %>""" parse-template drop
    ] unit-test
] with-file-vocabs