1 files changed, 13 insertions, 0 deletions

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