Do not output debug stuff during test run

Author: zoffixznet

t/02-code.t

@@ -45,5 +45,5 @@ my %*POD2HTML-CALLBACKS = code => sub (:$node, :&default) {
     ok $node.contents ~~ /:i code/, 'Callback called';
 }
 
-say $=pod[0].perl;
+# say $=pod[0].perl;
 pod2html $=pod[0];

t/06-table.t

@@ -1,7 +1,7 @@
 use Test;
 use Pod::To::HTML;
 
-plan 3;
+plan 4;
 
 my $r;
 
@@ -78,3 +78,31 @@ ok $r ~~ ms[[
       '</tbody>'
     '</table>'
 ]];
+
+=begin table :caption<Test Caption>
+
+  H1    H2
+  --    --
+  col1  col2
+
+=end table
+
+$r = pod2html $=pod[3];
+# say $r;
+ok $r ~~ ms[[
+    '<table class="pod-table">'
+      '<caption>' 'Test Caption' '</caption>'
+      '<thead>'
+        '<tr>'
+          '<th>' H1 '</th>'
+          '<th>' H2 '</th>'
+        '</tr>'
+      '</thead>'
+      '<tbody>'
+        '<tr>'
+          '<td>' col1 '</td>'
+          '<td>' col2 '</td>'
+        '</tr>'
+      '</tbody>'
+    '</table>'
+]];