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

   1 USING: io io.files io.streams.string io.encodings.utf8
   2 html.templates html.templates.fhtml kernel
   3 tools.test sequences parser ;
   4 IN: html.templates.fhtml.tests
   5
   6 : test-template ( path -- ? )
   7     "resource:basis/html/templates/fhtml/test/"
   8     prepend
   9     [
  10         ".fhtml" append <fhtml> [ call-template ] with-string-writer
  11     ] keep
  12     ".html" append utf8 file-contents = ;
  13
  14 [ t ] [ "example" test-template ] unit-test
  15 [ t ] [ "bug" test-template ] unit-test
  16 [ t ] [ "stack" test-template ] unit-test
  17
  18 [
  19     [ ] [ "<%\n%>" parse-template drop ] unit-test
  20 ] with-file-vocabs