Author: jasons
Date: Mon Aug 28 04:15:10 2006
New Revision: 437659
URL: http://svn.apache.org/viewvc?rev=437659&view=rev
Log:
using use_ok()
Modified:
xerces/c/trunk/swig/perl/t/DOMBuilder.t
Modified: xerces/c/trunk/swig/perl/t/DOMBuilder.t
URL:
http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMBuilder.t?rev=437659&r1=437658&r2=437659&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMBuilder.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMBuilder.t Mon Aug 28 04:15:10 2006
@@ -2,25 +2,19 @@
# with `make test'. After `make install' it should work as `perl
# DOMLSParser.t'
-######################### We start with some black magic to print on failure.
+######################### Begin module loading
-END {fail() unless $loaded;}
-
-use Carp;
# use blib;
-use XML::Xerces qw(error);
use Test::More tests => 12;
-use Config;
+
+BEGIN{use_ok('XML::Xerces')};
use lib 't';
use TestUtils qw($PERSONAL_FILE_NAME);
-use vars qw($loaded $error);
+use vars qw($error);
use strict;
-$loaded = 1;
-pass('module loaded');
-
-######################### End of black magic.
+######################### Begin Test
my $document = q[<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<contributors>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
