Contents

use Test; # -*- mode: perl6 -*- 
use Test::Output;
use Pod::To::HTML;
plan 5;
my $r;

=begin pod
=TITLE The usual suspects

The seven suspects are:

=item  Happy
=item  Dopey
=item  Sleepy
=item  Bashful
=item  Sneezy
=item  Grumpy
=item  Keyser Soze
=end pod

stderr-like {$r = pod2html $=pod[0], :templates<templates>}, /'does not contain required templates'/, 'Complains when required templates not found';
ok $r ~~ ms[[
    '<p>' 'The seven suspects are:' '</p>'
    '<ul>'
        '<li>' '<p>' Happy '</p>' '</li>'
        '<li>' '<p>' Dopey '</p>' '</li>'
        '<li>' '<p>' Sleepy '</p>' '</li>'
        '<li>' '<p>' Bashful '</p>' '</li>'
        '<li>' '<p>' Sneezy '</p>' '</li>'
        '<li>' '<p>' Grumpy '</p>' '</li>'
        '<li>' '<p>' Keyser Soze '</p>' '</li>'
    '</ul>'
]], 'Uses default templates';

$r = pod2html $=pod[0], :templates("t/templates");
ok $r ~~ ms[[  '<meta description="This is a new template"/>' ]], 'Gets text from new template';
ok $r ~~ ms[[ "<h1 class='title'>The usual suspects</h1>" ]], 'Fills template correctly';

my $head='<meta name=viewport content="width=device-width, initial-scale=1">';
$r = pod2html $=pod[0], :templates("t/templates"), :$head ;
ok $r ~~ ms[[ $head ]], 'headers are redered as is';

Version data entries

1 entries across 1 versions & 1 rubygems

Version	Path
github-markup-3.0.2	vendor/Pod-To-HTML/t/120-templates.t