Almost-minimal filesystem based blog.
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
use lib 'lib';
|
|
|
|
use Test::More tests => 2;
|
|
use App::WRT;
|
|
|
|
chdir 'example/blog';
|
|
|
|
my $w = App::WRT::new_from_file('wrt.json');
|
|
|
|
my $result = $w->display('filter_test');
|
|
|
|
ok(
|
|
$result =~ m/id="filter_test-heading-level-2"/,
|
|
'Got a heading with an id'
|
|
);
|
|
|
|
ok(
|
|
$result =~ m/href="#filter_test-heading-level-2"/,
|
|
'Got a link to the id'
|
|
);
|