Adds another test for #55

t/011-external.t

@@ -1,15 +1,24 @@
 use Test; # -*- mode: perl6 -*-
 use Pod::To::HTML;
-plan 2;
+plan 6;
 
 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";
+for <test class> -> $base {
+    test-files( $base ~ ".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" );
+sub test-files( $possible-file-path ) {
+
+    my $example-path = $possible-file-path.IO.e??$possible-file-path!!"t/$possible-file-path";
+
+    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" );
+    $r = pod2html($pod, :header(''), :footer(''), :head(''), :default-title(''), :lang('en'));
+    unlike( $r, /Pod\:\:To/, "Is not prepending class name" );
+}

t/class.pod6

@@ -0,0 +1,2 @@
+#| Hello!
+class XYZ {}