dirname, basename, bestlink, linkify, pagetitle, titlepage.

* Allow links of the form [[some page|page]], with whitespace in the link
  text.

1 files changed, 12 insertions, 0 deletions

diff --git a/t/pagetitle.t b/t/pagetitle.t
new file mode 100755
index 000000000..1bb4421e4
--- /dev/null
+++ b/t/pagetitle.t
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use Test::More tests => 6;
+
+BEGIN { use_ok("IkiWiki"); }
+
+is(IkiWiki::pagetitle("foo_bar"), "foo bar");
+is(IkiWiki::pagetitle("foo_bar_baz"), "foo bar baz");
+is(IkiWiki::pagetitle("foo_bar__33__baz"), "foo bar!baz");
+is(IkiWiki::pagetitle("foo_bar__1234__baz"), "foo barӒbaz");
+is(IkiWiki::pagetitle("foo_bar___33___baz"), "foo bar ! baz");