Adds test for render refs #14

perl6 · Apr 25, 2018 · 165791c · 165791c
1 parent c341095
commit 165791c
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/t/render.t b/t/render.t
@@ -24,4 +24,11 @@ setup();
 like compose-before-content($=pod), /This\s+is\s+the\s+head/, "Head inserted";
 like compose-before-content($=pod, 'x'), /xml \s+ version/, "Head with xml inserted";
 like compose-before-content($=pod, ''), /DOCTYPE \s+ html/, "Head with html inserted";
+for $=pod[0].contents -> $pod-part {
+    my $html = handle( $pod-part, pod-name => "/language/test",
+                       part-number => 1,
+                       toc-counter =>  TOC-Counter.new.set-part-number(0),
+                       part-config => {:head1(:numbered(True)),:head2(:numbered(True))} );
+    like $html, /{$pod-part.contents}/, "Inserts text with parts";
+}