- #!/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'
- );
|