ikiwiki/t/titlepage.t

14 lines
381 B
Perl
Raw Normal View History

#!/usr/bin/perl
use warnings;
use strict;
use Test::More tests => 7;
BEGIN { use_ok("IkiWiki"); }
2008-09-27 20:14:36 +02:00
is(titlepage("foo bar"), "foo_bar");
is(titlepage("foo bar baz"), "foo_bar_baz");
is(titlepage("foo bar/baz"), "foo_bar/baz");
is(titlepage("foo bar&baz"), "foo_bar__38__baz");
is(titlepage("foo bar & baz"), "foo_bar___38___baz");
is(titlepage("foo bar_baz"), "foo_bar__95__baz");