Adds test

Refs #55, for the time being it does not reproduce the error. Will need more tests.
Raku · Dec 14, 2018 · 50502ca · 50502ca
1 parent a0ebb8c
commit 50502ca
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/t/011-external.t b/t/011-external.t
@@ -0,0 +1,15 @@
+use Test; # -*- mode: perl6 -*-
+use Pod::To::HTML;
+plan 2;
+
+use MONKEY-SEE-NO-EVAL;
+
+# XXX Need a module to walk HTML trees
+
+my $example-path = "test.pod6".IO.e??"test.pod6"!!"t/test.pod6";
+
+my $a-pod = $example-path.IO.slurp;
+my $pod = (EVAL ($a-pod ~ "\n\$=pod")); # use proved pod2onebigpage method
+my $r = node2html $pod;
+ok( $r, "Converting external" );
+unlike( $r, /Pod\:\:To/, "Is not prepending class name" );