basis/xml/tests/funny-dtd.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 IN: xml.tests
   4 USING: xml xml.writer io.files io.encodings.utf8 tools.test kernel ;
   5
   6 [ t ] [
   7     "vocab:xml/tests/funny-dtd.xml" utf8 file-contents string>xml
   8     dup xml>string string>xml =
   9 ] unit-test