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.

24 lines
388 B

  1. #!/usr/bin/env perl
  2. use strict;
  3. use warnings;
  4. use lib 'lib';
  5. use Test::More tests => 2;
  6. use App::WRT;
  7. chdir 'example/blog';
  8. my $w = App::WRT::new_from_file('wrt.json');
  9. my $result = $w->display('filter_test');
  10. ok(
  11. $result =~ m/id="filter_test-heading-level-2"/,
  12. 'Got a heading with an id'
  13. );
  14. ok(
  15. $result =~ m/href="#filter_test-heading-level-2"/,
  16. 'Got a link to the id'
  17. );