svn commit: rev 20155 - xml/xerces-p/trunk/t

[jasons]

Author: jasons
Date: Thu May 20 09:29:53 2004
New Revision: 20155

Modified:
   xml/xerces-p/trunk/t/EntityResolver.t
Log:
added test of new XML::Xerces::XMLCatalogResolver

Modified: xml/xerces-p/trunk/t/EntityResolver.t
==============================================================================
--- xml/xerces-p/trunk/t/EntityResolver.t       (original)
+++ xml/xerces-p/trunk/t/EntityResolver.t       Thu May 20 09:29:53 2004
@@ -23,7 +23,7 @@
 use strict;
 
 $loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
 
 ######################### End of black magic.
 
@@ -33,9 +33,14 @@
 $DOM->setErrorHandler($ERROR_HANDLER);
 
 # see if we can create and set an entity resolver
+my $res = eval{XML::Xerces::XMLCatalogResolver->new('samples/catalog.xml')};
+XML::Xerces::error($@) if $@;
+$DOM->setEntityResolver($res);
+pass("set XMLCatalogResolver");
+
 my $ENTITY_RESOLVER = TestUtils->new();
 $DOM->setEntityResolver($ENTITY_RESOLVER);
-ok(1);
+pass("test resolver");
 
 # now lets see if the resolver gets invoked
 eval {

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]