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