extra/html/entities/entities-tests.factor

   1 USING: tools.test ;
   2 IN: html.entities
   3
   4 { "&" } [ "&amp;" html-unescape ] unit-test
   5 { "a" } [ "&#x61" html-unescape ] unit-test
   6 { "<foo>" } [ "&lt;foo&gt;" html-unescape ] unit-test
   7 { "This &that" } [ "This &amp;that" html-unescape ] unit-test
   8 { "This &that" } [ "This &ampthat" html-unescape ] unit-test
   9
  10 { "&amp;" } [ "&" html-escape ] unit-test
  11 { "&lt;foo&gt;" } [ "<foo>" html-escape ] unit-test