Commits

Shlomi Fish committed 914d1c4

Convert t/06output.t to Test::More.

Comments (0)

Files changed (2)

         - t/02dromeds.t
         - t/04params.t
         - t/05quick.t
+        - t/06output.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 => 29 }
+use strict;
+use warnings;
+
+# Should be 29.
+use Test::More tests => 29;
 
 use XML::LibXSLT;
 use XML::LibXML;
-ok(1);
+# TEST
+
+ok(1, ' TODO : Add test name');
 
 my $parser = XML::LibXML->new();
 my $xslt = XML::LibXSLT->new();
 <foo/>
 EOF
 
+# TEST:$n=0;
 my @style_docs;
 
 # XML
+# TEST:$n++;
 push @style_docs, "text/xml", <<'EOF';
 <?xml version="1.0"?>
 <xsl:stylesheet
 EOF
 
 # HTML
+# TEST:$n++;
 push @style_docs, "text/html", <<'EOF';
 <?xml version="1.0"?>
 <xsl:stylesheet
 EOF
 
 # TEXT
+# TEST:$n++;
 push @style_docs, "text/plain", <<'EOF';
 <?xml version="1.0"?>
 <xsl:stylesheet
 EOF
 
 # Default XML
+# TEST:$n++;
 push @style_docs, "text/xml", <<'EOF';
 <?xml version="1.0"?>
 <xsl:stylesheet
 EOF
 
 # Default HTML (broken for now!)
+# TEST:$n++;
 push @style_docs, "text/html", <<'EOF';
 <?xml version="1.0"?>
 <xsl:stylesheet
 EOF
 
 # Text, other
+# TEST:$n++;
 push @style_docs, "text/rtf", <<'EOF';
 <?xml version="1.0"?>
 <xsl:stylesheet
 EOF
 
 # XML, other
+# TEST:$n++;
 push @style_docs, "text/vnd.wap.wml", <<'EOF';
 <?xml version="1.0"?>
 <xsl:stylesheet
 </xsl:stylesheet>
 EOF
 
+# TEST:$num_style_docs=$n;
 while (@style_docs) {
     my ($media_type, $style_str) = splice(@style_docs, 0, 2);
     
     my $style_doc = $parser->parse_string($style_str);
-    ok($style_doc);
+    # TEST*$num_style_docs
+    ok($style_doc, ' TODO : Add test name');
     
     my $stylesheet = $xslt->parse_stylesheet($style_doc);
-    ok($stylesheet);
+    # TEST*$num_style_docs
+    ok($stylesheet, ' TODO : Add test name');
     
     my $results = $stylesheet->transform($source);
-    ok($results);
+    # TEST*$num_style_docs
+    ok($results, ' TODO : Add test name');
     
-    ok($stylesheet->media_type, $media_type);
+    # TEST*$num_style_docs
+    is($stylesheet->media_type, $media_type, ' TODO : Add test name');
 }