From 00f1498a3074677581f2bc0d7f66d47b00797014 Mon Sep 17 00:00:00 2001
From: Jason Edward Stewart <jasons@apache.org>
Date: Mon, 28 Aug 2006 11:16:22 +0000
Subject: [PATCH] switched from ok() to is()
git-svn-id: https://svn.apache.org/repos/asf/xerces/c/trunk@437661 13f79535-47bb-0310-9956-ffa450edef68
---
swig/perl/t/DOMElement.t | 19 +++++++++++++------
1 file changed, 13 insertions(+), 6 deletions(-)
diff --git a/swig/perl/t/DOMElement.t b/swig/perl/t/DOMElement.t
index c695210b0..58efdea55 100644
--- a/swig/perl/t/DOMElement.t
+++ b/swig/perl/t/DOMElement.t
@@ -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 vars qw($loaded);
use strict;
$loaded = 1;
-ok($loaded, "module loaded");
+pass("module loaded");
######################### End of black magic.
@@ -105,7 +105,7 @@ my ($element) = $doc->getElementsByTagName('element');
# try to set an Attribute, 'foo', to 'foo'
$element->setAttributeNS($uri,'foo','foo');
-ok($element->getAttributeNS($uri,'foo') eq 'foo',
+is($element->getAttributeNS($uri,'foo'), 'foo',
"setAttributeNS - correct value")
or diag("found attributes [" . $element->serialize() . "]");
@@ -124,6 +124,7 @@ eval{$element->setAttributeNS(undef,'foo','foo')};
ok($@,
"setAttributeNS - undef uri fails");
+$uri = 'http://example.org/';
$document = <<XML;
<root xmlns="http://example.com/test">
<a xmlns="http://example.org/">
@@ -135,6 +136,12 @@ XML
$DOM->parse(XML::Xerces::MemBufInputSource->new($document));
$doc = $DOM->getDocument();
-ok($doc->getElementsByTagName('a')->getLength == 1);
-ok($doc->getElementsByTagNameNS('http://example.org/', 'a')->getLength == 2);
-ok($doc->getElementsByTagNameNS('http://example.com/test', 'root')->getLength == 1);
+is($doc->getElementsByTagName('a')->getLength(), 1,
+ 'getElementsByTagName - no uri'
+ );
+is($doc->getElementsByTagNameNS($uri, 'a')->getLength(), 2,
+ 'getElementsByTagNameNS - correct uri'
+ );
+is($doc->getElementsByTagNameNS($uri, 'root')->getLength(), 0,
+ 'getElementsByTagNameNS - bad uri fails'
+ );
--
GitLab