steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

basis.xml: Add test to check that pull-event doesn't raise an exception when called on a pull-xml object

db4
Bruno Deferrari 2009-07-22 20:48:38 -03:00
parent 0068a3d965
commit 8bf389e9b5
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/xml/tests/test.factor
View File

@ -73,3 +73,7 @@ SYMBOL: xml-file
[ T{ xml-chunk f V{ "hello" } } ] [ "hello" string>xml-chunk ] unit-test
[ "1.1" ] [ "<?xml version='1.1'?><x/>" string>xml prolog>> version>> ] unit-test
[ "ß" ] [ "<x>ß</x>" <string-reader> read-xml children>string ] unit-test
! <pull-xml> tests
! this tests just checks that pull-event doesn't raise an exception
[ ] [ "vocab:xml/tests/test.xml" binary [ <pull-xml> pull-event drop ] with-file-reader ] unit-test