2008-12-02 20:59:16 -05:00
|
|
|
! Copyright (C) 2008 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
IN: xml.tests
|
|
|
|
|
USING: xml xml.writer io.files io.encodings.utf8 tools.test kernel ;
|
|
|
|
|
|
|
|
|
|
[ t ] [
|
2009-02-15 20:53:21 -05:00
|
|
|
"vocab:xml/tests/funny-dtd.xml" utf8 file-contents string>xml
|
2008-12-02 20:59:16 -05:00
|
|
|
dup xml>string string>xml =
|
|
|
|
|
] unit-test
|
