Fix xml.writer unit test

db4
Slava Pestov 2009-02-15 20:11:36 -06:00
parent e8c3fe2afc
commit e1866ff0e4
1 changed files with 1 additions and 1 deletions

View File

@ -61,7 +61,7 @@ IN: xml.writer.tests
[ "<foo> bar </foo>" string>xml pprint-xml>string ] unit-test
[ "<foo'>" ] [ "<foo'>" <unescaped> xml>string ] unit-test
: test-file "vocab:xml/writer/test.xml" ;
: test-file "resource:basis/xml/writer/test.xml" ;
[ ] [ "<?xml version='1.0' encoding='UTF-16BE'?><x/>" string>xml test-file utf8 [ write-xml ] with-file-writer ] unit-test
[ "x" ] [ test-file file>xml body>> name>> main>> ] unit-test