Add a test for =pod Html

Issue #23
Raku · Feb 2, 2017 · 0b44eb2 · 0b44eb2
1 parent 7045c17
commit 0b44eb2
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/t/09-Html.t b/t/09-Html.t
@@ -0,0 +1,15 @@
+use Test;
+use Pod::To::HTML;
+plan 1;
+my $r;
+
+=begin Html
+
+This should be <b>raw</b> HTML
+That isn't
+changed.
+
+=end Html
+
+$r = node2html $=pod[0];
+nok $r ~~ / '<p>' /, 'no paragraphs should be inserted into Html blocks';