t/titlepage.t

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4 use Test::More tests => 7;
   5
   6 BEGIN { use_ok("IkiWiki"); }
   7
   8 is(titlepage("foo bar"), "foo_bar");
   9 is(titlepage("foo bar baz"), "foo_bar_baz");
  10 is(titlepage("foo bar/baz"), "foo_bar/baz");
  11 is(titlepage("foo bar&baz"), "foo_bar__38__baz");
  12 is(titlepage("foo bar & baz"), "foo_bar___38___baz");
  13 is(titlepage("foo bar_baz"), "foo_bar__95__baz");