9 my $body = delete $s->{body};
10 like($body, qr/^\s+<p>Some markdown here.<\/p>\s+$/sm, 'Body correct');
11 delete @{$s}{grep /^_/, keys %$s};
17 description => '--DESCRIPTION--',
18 keywords => '--KW1-- --KW2--'
24 my $ps = SCSite::PageSet->new(base_dir => io->dir('t/pages'));
26 my $test_html = q{<html>
28 <title>--TITLE--</title>
29 <meta name="description" content="--DESCRIPTION--" />
30 <meta name="keywords" content="--KW1-- --KW2--" />
33 <p>Some markdown here.</p>
37 check_structure($ps->_extract_from_html($test_html));
39 my $test_md = q{Title: --TITLE--
40 description: --DESCRIPTION--
41 keywords: --KW1-- --KW2--
46 check_structure($ps->_extract_from_md($test_md));
48 check_structure($ps->get({ path => 'index' }));
50 check_structure($ps->get({ path => 'one/two' }));