From: Bruno Deferrari <utizoc@gmail.com>
Date: Wed, 22 Jul 2009 23:48:38 +0000 (-0300)
Subject: basis.xml: Add test to check that pull-event doesn't raise an exception when called... 
X-Git-Tag: 0.97~5925^2~1
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=8bf389e9b55cf13d25b7aeff87fbd8c7edb1f513

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

diff --git a/basis/xml/tests/test.factor b/basis/xml/tests/test.factor
index 74ba931c79..e371c3aab5 100644
--- a/basis/xml/tests/test.factor
+++ b/basis/xml/tests/test.factor
@@ -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
\ No newline at end of file