Commits

Shlomi Fish committed 6478881

Convert t/04params.t to Test::More.

Comments (0)

Files changed (2)

     - Convert the following test scripts from Test.pm to Test::More :
         - t/01basic.t
         - t/02dromeds.t
+        - t/04params.t
 
 1.73            Sun Oct  9 17:32:30 IST 2011
     - Possible fix for https://rt.cpan.org/Ticket/Display.html?id=71456 :
-use Test;
-BEGIN { plan tests => 8 }
+use strict;
+use warnings;
+
+# Should be 7.
+use Test::More tests => 7;
 
 use XML::LibXSLT;
 use XML::LibXML;
-ok(1);
 
 my $parser = XML::LibXML->new();
 my $xslt = XML::LibXSLT->new();
 </top>
 EOF
         
-ok($source);
+# TEST
+        
+ok($source, ' TODO : Add test name');
 
 my $style_doc = $parser->parse_string(<<'EOF');
 <?xml version="1.0"?>
 </xsl:stylesheet>
 EOF
 
-ok($style_doc);
+# TEST
+ok($style_doc, ' TODO : Add test name');
 
 my $stylesheet = $xslt->parse_stylesheet($style_doc);
 
-ok($stylesheet);
+# TEST
+ok($stylesheet, ' TODO : Add test name');
 
 my $results = $stylesheet->transform($source,
         'incoming' => "'INCOMINGTEXT'",
         'outgoing' => "'OUTGOINGTEXT'",
         );
 
-ok($results);
+# TEST
+ok($results, ' TODO : Add test name');
 
-ok($stylesheet->output_string($results));
+# TEST
+ok($stylesheet->output_string($results), ' TODO : Add test name');
 
 my @params = XML::LibXSLT::xpath_to_string('empty' => undef);
 $results = $stylesheet->transform($source, @params);
-ok($results);
-ok($stylesheet->output_string($results));
+# TEST
+ok($results, ' TODO : Add test name');
+# TEST
+ok($stylesheet->output_string($results), ' TODO : Add test name');