Author: jasons
Date: Mon Aug 28 04:21:24 2006
New Revision: 437664
URL: http://svn.apache.org/viewvc?rev=437664&view=rev
Log:
added extra stringification tests
Modified:
xerces/c/trunk/swig/perl/t/XMLUni.t
Modified: xerces/c/trunk/swig/perl/t/XMLUni.t
URL:
http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/XMLUni.t?rev=437664&r1=437663&r2=437664&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/XMLUni.t (original)
+++ xerces/c/trunk/swig/perl/t/XMLUni.t Mon Aug 28 04:21:24 2006
@@ -1,33 +1,31 @@
# Before `make install' is performed this script should be runnable
# with `make test'. After `make install' it should work as `perl
# XMLUni.t'
+#########################################
-######################### We start with some black magic to print on failure.
+# use blib;
+use Test::More tests => 5;
+BEGIN {use_ok("XML::Xerces")};
-END {ok(0) unless $loaded;}
-
-use Carp;
-
-use blib;
-use XML::Xerces;
-use Test::More tests => 4;
-
-use vars qw($loaded);
use strict;
-$loaded = 1;
-ok($loaded, "module loaded");
-
-######################### End of black magic.
-
# once the unicode constants were not being properly exported
# these tests guard against that happening again
-ok($XML::Xerces::XMLUni::fgPCDATAString eq '#PCDATA');
-ok($XML::Xerces::XMLUni::fgPubIDString eq 'PUBLIC');
+is($XML::Xerces::XMLUni::fgPCDATAString, '#PCDATA', 'XMLUni constants
exported');
+is($XML::Xerces::XMLUni::fgPubIDString, 'PUBLIC', 'XMLUni constants exported');
+
+eval {
+ my $parser = XML::Xerces::XMLReaderFactory::createXMLReader();
+ $parser->setFeature($XML::Xerces::XMLUni::fgSAX2CoreNameSpaces, 1)
+};
+ok(!$@,
+ "Xerces method arguments now handle magic stringify - SAX2")
+ or diag(XML::Xerces::error($@));
my $impl = XML::Xerces::DOMImplementationRegistry::getDOMImplementation('LS');
my $writer = $impl->createLSSerializer();
eval{$writer->getDomConfig()->setParameter($XML::Xerces::XMLUni::fgDOMWRTFormatPrettyPrint,1)};
+
ok(!$@,
- "Xerces method arguments now handle magic stringify")
+ "Xerces method arguments now handle magic stringify - DOM")
or diag(XML::Xerces::error($@));
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
