[perl-xml-cvs] CVS: xalan-p/t 15ext_ctx.t,1.1.1.1,1.2 16nodeset.t,1.1.1.1,1.2

[Edwin P. <edp...@us...>]

Update of /cvsroot/perl-xml/xalan-p/t
In directory usw-pr-cvs1:/tmp/cvs-serv27743/t

Modified Files:
	15ext_ctx.t 16nodeset.t 
Log Message:
Fixed for win32 build


Index: 15ext_ctx.t
===================================================================
RCS file: /cvsroot/perl-xml/xalan-p/t/15ext_ctx.t,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- 15ext_ctx.t	18 Apr 2002 03:37:42 -0000	1.1.1.1
+++ 15ext_ctx.t	18 Sep 2002 07:53:46 -0000	1.2
@@ -27,8 +27,8 @@
 my %functions = (
     'asctime'   => sub {
         my ($context, $context_node) = @_;
-        #print STDERR Dumper($context);
-        #print STDERR Dumper($context_node);
+        debug($context);
+        debug($context_node);
 
         # call DOM method on context node
         #print STDERR "Name of context node: ", $context_node->getNodeName() . "\n";
@@ -39,7 +39,7 @@
    },
     'square-root' => sub {
         my ($context, $context_node, $xobj) = @_;
-        #print STDERR Dumper($xobj);
+        debug($xobj);
 
         my $num = $xobj->number;
         #print STDERR "Post converted xobj type: ". Dumper($num);
@@ -90,3 +90,6 @@
 my $res = $tr->transform_to_file($parsed, @files[1,2]);
 ok($res) or print STDERR $tr->errstr;
 
+sub debug {
+	print STDERR Dumper(@_) if $ENV{DEBUG_XALAN};
+}

Index: 16nodeset.t
===================================================================
RCS file: /cvsroot/perl-xml/xalan-p/t/16nodeset.t,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- 16nodeset.t	18 Apr 2002 03:37:42 -0000	1.1.1.1
+++ 16nodeset.t	18 Sep 2002 07:53:46 -0000	1.2
@@ -85,13 +85,14 @@
         my $obj_factory = $context->get_xobject_factory;
         
         if (ref $xobj eq "XML::Xalan::NodeSet") {
-            my @nodes = $xobj->get_nodelist;
-            #print STDERR Dumper(@nodes);
+            #my @nodes = $xobj->get_nodelist;
+			my @nodes = $xobj->my_nodeset;
+            debug(@nodes);
 
             my $ret = $obj_factory->create_nodeset(@nodes); 
             return $ret;
         } else {
-            #print STDERR Dumper $xobj;
+            debug($xobj);
             my $ret = $obj_factory->create_boolean($xobj); 
             return $ret;
         }
@@ -109,3 +110,6 @@
 my $res = $tr->transform_to_file($parsed, $xsl, $file);
 ok($res) or print STDERR $tr->errstr;
 
+sub debug {
+	print STDERR Dumper(@_) if $ENV{DEBUG_XALAN};
+}