urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
ikiwiki/t/titlepage.t

14 lines
435 B
Perl
Raw Normal View History

dirname, basename, bestlink, linkify, pagetitle, titlepage. * Allow links of the form [[some page|page]], with whitespace in the link text.
2006-05-04 20:51:26 +02:00
#!/usr/bin/perl
use warnings;
use strict;
* Allow for underscores to appear in page titles, if encoded appropriately (__95__) in filenames. Previously, all underscores were replaced with spaces. Thanks, Enrico Zini for noticing that bug.
2007-03-02 01:37:22 +01:00
use Test::More tests => 7;
dirname, basename, bestlink, linkify, pagetitle, titlepage. * Allow links of the form [[some page|page]], with whitespace in the link text.
2006-05-04 20:51:26 +02:00
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");
* Allow for underscores to appear in page titles, if encoded appropriately (__95__) in filenames. Previously, all underscores were replaced with spaces. Thanks, Enrico Zini for noticing that bug.
2007-03-02 01:37:22 +01:00
is(IkiWiki::titlepage("foo bar_baz"), "foo_bar__95__baz");