[scpubgit/SCS.git] / t / pages.t

use strictures 1;
use Test::More;
use SCSite::PageSet;

sub check_structure {
  my ($s) = @_;
  $s = { %$s };
  my $body = delete $s->{body};
  like($body, qr/^\s+<p>Some markdown here.<\/p>\s+$/sm, 'Body correct');
  is_deeply($s,
    {
      title => '--TITLE--',
      description => '--DESCRIPTION--',
      keywords => '--KW1-- --KW2--'
    },
    'Metadata ok'
  );
}

my $ps = SCSite::PageSet->new(base_dir => 't/pages');

my $test_html = q{<html>
  <head>
    <title>--TITLE--</title>
    <meta name="description" content="--DESCRIPTION--" />
    <meta name="keywords" content="--KW1-- --KW2--" />
  </head>
  <body>
    <p>Some markdown here.</p>
  </body>
</html>};

check_structure($ps->_extract_from_html($test_html));

my $test_md = q{Title: --TITLE--
description: --DESCRIPTION--
keywords: --KW1-- --KW2--

Some markdown here.
};

check_structure($ps->_extract_from_md($test_md));

check_structure($ps->get({ path => 'index' }));

check_structure($ps->get({ path => 'one/two' }));

done_testing;
Commit	Line	Data
95148a72	1	use strictures 1;
	2	use Test::More;
	3	use SCSite::PageSet;
	4
	5	sub check_structure {
	6	my ($s) = @_;
	7	$s = { %$s };
	8	my $body = delete $s->{body};
	9	like($body, qr/^\s+<p>Some markdown here.<\/p>\s+$/sm, 'Body correct');
	10	is_deeply($s,
	11	{
	12	title => '--TITLE--',
	13	description => '--DESCRIPTION--',
	14	keywords => '--KW1-- --KW2--'
	15	},
	16	'Metadata ok'
	17	);
	18	}
	19
	20	my $ps = SCSite::PageSet->new(base_dir => 't/pages');
	21
	22	my $test_html = q{<html>
	23	<head>
	24	<title>--TITLE--</title>
	25	<meta name="description" content="--DESCRIPTION--" />
	26	<meta name="keywords" content="--KW1-- --KW2--" />
	27	</head>
	28	<body>
	29	<p>Some markdown here.</p>
	30	</body>
	31	</html>};
	32
	33	check_structure($ps->_extract_from_html($test_html));
	34
	35	my $test_md = q{Title: --TITLE--
	36	description: --DESCRIPTION--
	37	keywords: --KW1-- --KW2--
	38
	39	Some markdown here.
	40	};
	41
	42	check_structure($ps->_extract_from_md($test_md));
	43
	44	check_structure($ps->get({ path => 'index' }));
	45
	46	check_structure($ps->get({ path => 'one/two' }));
	47
	48	done_testing;