Fixing XML tests
parent
989b7a468a
commit
eaf0d57d6e
|
@ -9,6 +9,6 @@ USING: sequences xml kernel arrays xml.utilities io.files tools.test ;
|
|||
[ assemble-data ] map ;
|
||||
|
||||
[ "http://www.foxnews.com/oreilly/" ] [
|
||||
"extra/xml/test/soap.xml" resource-path file>xml
|
||||
"extra/xml/tests/soap.xml" resource-path file>xml
|
||||
parse-result first first
|
||||
] unit-test
|
||||
|
|
|
@ -7,7 +7,7 @@ USING: kernel xml tools.test io namespaces sequences xml.errors xml.entities
|
|||
|
||||
! This is insufficient
|
||||
SYMBOL: xml-file
|
||||
[ ] [ "extra/xml/test/test.xml" resource-path
|
||||
[ ] [ "extra/xml/tests/test.xml" resource-path
|
||||
[ file>xml ] with-html-entities xml-file set ] unit-test
|
||||
[ "1.0" ] [ xml-file get xml-prolog prolog-version ] unit-test
|
||||
[ f ] [ xml-file get xml-prolog prolog-standalone ] unit-test
|
||||
|
|
Loading…
Reference in New Issue