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