13 lines
376 B
Perl
13 lines
376 B
Perl
|
#!/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");
|