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 2001/11/03 06:28:57 UTC
cvs commit: xml-xerces/perl/t DOM_Attr.t
jasons 01/11/02 21:28:57
Modified: perl/t DOM_Attr.t
Log:
* t/DOM_Attr.t (Repository):
Test that we can set attributes using IV's and NV's
Revision Changes Path
1.3 +11 -2 xml-xerces/perl/t/DOM_Attr.t
Index: DOM_Attr.t
===================================================================
RCS file: /home/cvs/xml-xerces/perl/t/DOM_Attr.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- DOM_Attr.t 2001/10/07 15:50:11 1.2
+++ DOM_Attr.t 2001/11/03 05:28:57 1.3
@@ -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.)
-BEGIN { $| = 1; print "1..8\n"; }
+BEGIN { $| = 1; print "1..10\n"; }
END {print "not ok 1\n" unless $loaded;}
use Carp;
# use blib;
@@ -54,4 +54,13 @@
my $attr_copy = $attr->new();
result($attr->getValue() eq $attr_copy->getValue());
-
+# test that we can use integers and floats as values for setting attribtes
+eval {
+ $attr->setValue(3);
+};
+result(!$@);
+
+eval {
+ $attr->setValue(.03);
+};
+result(!$@);
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org