You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@xerces.apache.org by ja...@apache.org on 2006/08/28 13:14:40 UTC
svn commit: r437658 - /xerces/c/trunk/swig/perl/t/
Author: jasons
Date: Mon Aug 28 04:14:36 2006
New Revision: 437658
URL: http://svn.apache.org/viewvc?rev=437658&view=rev
Log:
using pass() and fail() for first test
Modified:
xerces/c/trunk/swig/perl/t/AttributeList.t
xerces/c/trunk/swig/perl/t/Attributes.t
xerces/c/trunk/swig/perl/t/DOMAttr.t
xerces/c/trunk/swig/perl/t/DOMCount.t
xerces/c/trunk/swig/perl/t/DOMCreate.t
xerces/c/trunk/swig/perl/t/DOMDocument.t
xerces/c/trunk/swig/perl/t/DOMEntity.t
xerces/c/trunk/swig/perl/t/DOMException.t
xerces/c/trunk/swig/perl/t/DOMNamedNodeMap.t
xerces/c/trunk/swig/perl/t/DOMNode.t
xerces/c/trunk/swig/perl/t/DOMNodeIterator.t
xerces/c/trunk/swig/perl/t/DOMNodeList.t
xerces/c/trunk/swig/perl/t/DOMParser.t
xerces/c/trunk/swig/perl/t/DOMPrint.t
xerces/c/trunk/swig/perl/t/DOMTreeWalker.t
xerces/c/trunk/swig/perl/t/EntityResolver.t
xerces/c/trunk/swig/perl/t/Grammar.t
xerces/c/trunk/swig/perl/t/InputSource.t
xerces/c/trunk/swig/perl/t/LocalFileInputSource.t
xerces/c/trunk/swig/perl/t/MemBufInputSource.t
xerces/c/trunk/swig/perl/t/PerlErrorHandler.t
xerces/c/trunk/swig/perl/t/SAX2Count.t
xerces/c/trunk/swig/perl/t/SAX2XMLReader.t
xerces/c/trunk/swig/perl/t/SAXCount.t
xerces/c/trunk/swig/perl/t/SAXException.t
xerces/c/trunk/swig/perl/t/SAXParser.t
xerces/c/trunk/swig/perl/t/Schema.t
xerces/c/trunk/swig/perl/t/StdInInputSource.t
xerces/c/trunk/swig/perl/t/URLInputSource.t
xerces/c/trunk/swig/perl/t/UTF8.t
xerces/c/trunk/swig/perl/t/XMLException.t
xerces/c/trunk/swig/perl/t/XMLURL.t
xerces/c/trunk/swig/perl/t/XMLUri.t
xerces/c/trunk/swig/perl/t/XercesDOMParser.t
Modified: xerces/c/trunk/swig/perl/t/AttributeList.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/AttributeList.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/AttributeList.t (original)
+++ xerces/c/trunk/swig/perl/t/AttributeList.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
use blib;
@@ -18,7 +18,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/Attributes.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/Attributes.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/Attributes.t (original)
+++ xerces/c/trunk/swig/perl/t/Attributes.t Mon Aug 28 04:14:36 2006
@@ -7,7 +7,7 @@
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
use blib;
@@ -22,7 +22,7 @@
$loaded = 1;
$i = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/DOMAttr.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMAttr.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMAttr.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMAttr.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -18,7 +18,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/DOMCount.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMCount.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMCount.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMCount.t Mon Aug 28 04:14:36 2006
@@ -7,7 +7,7 @@
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -21,7 +21,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/DOMCreate.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMCreate.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMCreate.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMCreate.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -18,7 +18,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
@@ -48,9 +48,8 @@
my $perl = $Config{startperl};
$perl =~ s/^\#!//;
my $cmd = "$perl -Mblib $SAMPLE_DIR/DOMCreate.pl 2>/dev/null";
-# print STDERR "Running: $cmd\n";
+print STDERR "Running: $cmd\n";
my $output = `$cmd`;
-ok($document eq $output, 'document eq output');
-diag("Found output\n[$output]")
- if $document ne $output;
+is($document, $output,
+ 'document eq output') or diag("Found output\n[$output]");
Modified: xerces/c/trunk/swig/perl/t/DOMDocument.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMDocument.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMDocument.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMDocument.t Mon Aug 28 04:14:36 2006
@@ -7,7 +7,7 @@
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
@@ -22,7 +22,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/DOMEntity.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMEntity.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMEntity.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMEntity.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -17,7 +17,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/DOMException.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMException.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMException.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMException.t Mon Aug 28 04:14:36 2006
@@ -7,7 +7,7 @@
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -20,7 +20,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/DOMNamedNodeMap.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMNamedNodeMap.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMNamedNodeMap.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMNamedNodeMap.t Mon Aug 28 04:14:36 2006
@@ -7,7 +7,7 @@
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
use XML::Xerces;
@@ -19,7 +19,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/DOMNode.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMNode.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMNode.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMNode.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
@@ -17,7 +17,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/DOMNodeIterator.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMNodeIterator.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMNodeIterator.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMNodeIterator.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
@@ -17,7 +17,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
package MyNodeFilter;
use strict;
Modified: xerces/c/trunk/swig/perl/t/DOMNodeList.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMNodeList.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMNodeList.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMNodeList.t Mon Aug 28 04:14:36 2006
@@ -3,7 +3,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
use Cwd;
@@ -17,7 +17,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/DOMParser.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMParser.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMParser.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMParser.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -18,7 +18,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/DOMPrint.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMPrint.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMPrint.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMPrint.t Mon Aug 28 04:14:36 2006
@@ -7,7 +7,7 @@
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -21,7 +21,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/DOMTreeWalker.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/DOMTreeWalker.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/DOMTreeWalker.t (original)
+++ xerces/c/trunk/swig/perl/t/DOMTreeWalker.t Mon Aug 28 04:14:36 2006
@@ -7,7 +7,7 @@
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -20,7 +20,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
package MyNodeFilter;
use strict;
Modified: xerces/c/trunk/swig/perl/t/EntityResolver.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/EntityResolver.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/EntityResolver.t (original)
+++ xerces/c/trunk/swig/perl/t/EntityResolver.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
Modified: xerces/c/trunk/swig/perl/t/Grammar.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/Grammar.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/Grammar.t (original)
+++ xerces/c/trunk/swig/perl/t/Grammar.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -17,7 +17,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/InputSource.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/InputSource.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/InputSource.t (original)
+++ xerces/c/trunk/swig/perl/t/InputSource.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -17,7 +17,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/LocalFileInputSource.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/LocalFileInputSource.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/LocalFileInputSource.t (original)
+++ xerces/c/trunk/swig/perl/t/LocalFileInputSource.t Mon Aug 28 04:14:36 2006
@@ -5,7 +5,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -19,7 +19,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/MemBufInputSource.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/MemBufInputSource.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/MemBufInputSource.t (original)
+++ xerces/c/trunk/swig/perl/t/MemBufInputSource.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -17,7 +17,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/PerlErrorHandler.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/PerlErrorHandler.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/PerlErrorHandler.t (original)
+++ xerces/c/trunk/swig/perl/t/PerlErrorHandler.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
@@ -18,7 +18,7 @@
use vars qw($error $loaded);
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/SAX2Count.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/SAX2Count.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/SAX2Count.t (original)
+++ xerces/c/trunk/swig/perl/t/SAX2Count.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -18,7 +18,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/SAX2XMLReader.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/SAX2XMLReader.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/SAX2XMLReader.t (original)
+++ xerces/c/trunk/swig/perl/t/SAX2XMLReader.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -18,7 +18,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/SAXCount.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/SAXCount.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/SAXCount.t (original)
+++ xerces/c/trunk/swig/perl/t/SAXCount.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -18,7 +18,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/SAXException.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/SAXException.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/SAXException.t (original)
+++ xerces/c/trunk/swig/perl/t/SAXException.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
@@ -19,7 +19,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
@@ -28,68 +28,47 @@
isa_ok($parser,"XML::Xerces::SAX2XMLReader");
my $feature = "http://xml.org/sax/features/foospaces";
-eval {
- $parser->setFeature($feature, 0);
-};
-my $error = $@;
-my $skip = 0;
-unless (ok($error,"setFeature: $feature")) {
- $skip = 1;
-}
+my $error;
+
+SKIP: {
+ eval {$parser->setFeature($feature, 0)};
+ $error = $@;
+ ok($error,"setFeature: $feature");
-TODO: {
- todo_skip "setFeature didn't raise an exception", 2, if $skip;
+ skip "setFeature didn't raise an exception", 2, if not $error;
isa_ok($error,'XML::Xerces::SAXNotRecognizedException');
ok($error->getMessage(),"message");
}
-$skip = 0;
-
-eval {
- $parser->getFeature($feature);
-};
-$error = $@;
-unless (ok($error,"getFeature: $feature")){
- $skip = 1;
-}
+SKSIP: {
+ eval {$parser->getFeature($feature)};
+ $error = $@;
+ ok($error,"getFeature: $feature");
-TODO: {
- todo_skip "setFeature didn't raise an exception", 2, if $skip;
+ skip "setFeature didn't raise an exception", 2, if not $error;
isa_ok($error,'XML::Xerces::SAXNotRecognizedException');
ok($error->getMessage(),"message");
}
-$skip = 0;
-
-eval {
- $parser->getProperty($feature);
-};
-$error = $@;
-unless (ok($error,"getProperty: $feature")) {
- $skip = 1;
-}
+SKIP: {
+ eval {$parser->getProperty($feature)};
+ $error = $@;
+ ok($error,"getProperty: $feature");
-TODO: {
- todo_skip "setFeature didn't raise an exception", 2, if $skip;
+ skip "setFeature didn't raise an exception", 2, if not $@;
isa_ok($error,'XML::Xerces::SAXNotRecognizedException');
ok($error->getMessage(),"message");
}
-$skip = 0;
+SKIP: {
+ eval {$parser->setProperty($feature, $parser)};
+ $error = $@;
+ ok($@,"setProperty: $feature");
-eval {
- $parser->setProperty($feature, $parser);
-};
-$error = $@;
-unless (ok($error,"setProperty: $feature")){
- $skip = 1;
-}
-
-TODO: {
- todo_skip "setFeature didn't raise an exception", 2, if $skip;
+ skip "setFeature didn't raise an exception", 2, if not $error;
isa_ok($error,'XML::Xerces::SAXNotRecognizedException');
ok($error->getMessage(),"message");
@@ -114,17 +93,18 @@
package main;
my $handler = MyHandler->new();
+
+# we must reset this - because $parser has been stringified by an earlier test
+$parser = XML::Xerces::XMLReaderFactory::createXMLReader();
$parser->setContentHandler($handler);
-eval {
- $parser->parse(XML::Xerces::LocalFileInputSource->new($PERSONAL_FILE_NAME));
-};
-$error = $@;
-unless (ok($error,"setting a feature during parse")) {
- $skip = 1;
-}
-TODO: {
- todo_skip "modifying a feature during a parse didn't raise a not supported exception", 2, if $skip;
+SKIP: {
+ eval {$parser->parse(XML::Xerces::LocalFileInputSource->new($PERSONAL_FILE_NAME))};
+ $error = $@;
+ ok($error,"setting a feature during parse");
+
+ skip "modifying a feature during a parse didn't raise a not supported exception", 2,
+ if not $error;
isa_ok($error,'XML::Xerces::SAXNotSupportedException');
ok($error->getMessage(),"message");
Modified: xerces/c/trunk/swig/perl/t/SAXParser.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/SAXParser.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/SAXParser.t (original)
+++ xerces/c/trunk/swig/perl/t/SAXParser.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
use blib;
@@ -18,7 +18,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/Schema.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/Schema.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/Schema.t (original)
+++ xerces/c/trunk/swig/perl/t/Schema.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -17,7 +17,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/StdInInputSource.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/StdInInputSource.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/StdInInputSource.t (original)
+++ xerces/c/trunk/swig/perl/t/StdInInputSource.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -19,7 +19,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/URLInputSource.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/URLInputSource.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/URLInputSource.t (original)
+++ xerces/c/trunk/swig/perl/t/URLInputSource.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -15,7 +15,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/UTF8.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/UTF8.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/UTF8.t (original)
+++ xerces/c/trunk/swig/perl/t/UTF8.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
@@ -19,7 +19,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/XMLException.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/XMLException.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/XMLException.t (original)
+++ xerces/c/trunk/swig/perl/t/XMLException.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
@@ -19,7 +19,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/XMLURL.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/XMLURL.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/XMLURL.t (original)
+++ xerces/c/trunk/swig/perl/t/XMLURL.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -18,7 +18,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/XMLUri.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/XMLUri.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/XMLUri.t (original)
+++ xerces/c/trunk/swig/perl/t/XMLUri.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -17,7 +17,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
Modified: xerces/c/trunk/swig/perl/t/XercesDOMParser.t
URL: http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/t/XercesDOMParser.t?rev=437658&r1=437657&r2=437658&view=diff
==============================================================================
--- xerces/c/trunk/swig/perl/t/XercesDOMParser.t (original)
+++ xerces/c/trunk/swig/perl/t/XercesDOMParser.t Mon Aug 28 04:14:36 2006
@@ -4,7 +4,7 @@
######################### We start with some black magic to print on failure.
-END {ok(0) unless $loaded;}
+END {fail() unless $loaded;}
use Carp;
# use blib;
@@ -17,7 +17,7 @@
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
# NOTICE: We must now explicitly call XMLPlatformUtils::Initialize()
# when the module is loaded. Xerces.pm no longer does this.
---------------------------------------------------------------------
To unsubscribe, e-mail: commits-unsubscribe@xerces.apache.org
For additional commands, e-mail: commits-help@xerces.apache.org