Merge branch 'master' of ssh://git.ikiwiki.info/srv/git/ikiwiki.info
[ikiwiki] / 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");