XMLUni.t

# Before `make install' is performed this script should be runnable
# with `make test'. After `make install' it should work as `perl
# XMLUni.t'
#########################################

# use blib;
use Test::More tests => 5;
BEGIN {use_ok("XML::Xerces")};

use strict;

# once the unicode constants were not being properly exported
# these tests guard against that happening again
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 - DOM")
  or diag(XML::Xerces::error($@));