8 my $body = delete $s->{body};
9 like($body, qr/^\s+<p>Some markdown here.<\/p>\s+$/sm, 'Body correct');
10 delete @{$s}{grep /^_/, keys %$s};
15 description => '--DESCRIPTION--',
16 keywords => '--KW1-- --KW2--'
22 my $ps = SCSite::PageSet->new(base_dir => 't/pages');
24 my $test_html = q{<html>
26 <title>--TITLE--</title>
27 <meta name="description" content="--DESCRIPTION--" />
28 <meta name="keywords" content="--KW1-- --KW2--" />
31 <p>Some markdown here.</p>
35 check_structure($ps->_extract_from_html($test_html));
37 my $test_md = q{Title: --TITLE--
38 description: --DESCRIPTION--
39 keywords: --KW1-- --KW2--
44 check_structure($ps->_extract_from_md($test_md));
46 check_structure($ps->get({ path => 'index' }));
48 check_structure($ps->get({ path => 'one/two' }));