]> git.vanrenterghem.biz Git - git.ikiwiki.info.git/blobdiff - t/titlepage.t
(no commit message)
[git.ikiwiki.info.git] / t / titlepage.t
index cc56db70c089caccb850b6760960627a3cd1c27a..a09432fd7933ca31e02b6b5711c6dd8341212565 100755 (executable)
@@ -1,13 +1,22 @@
 #!/usr/bin/perl
 use warnings;
 use strict;
-use Test::More tests => 7;
+use Test::More;
+use utf8;
 
 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");
-is(IkiWiki::titlepage("foo bar_baz"), "foo_bar__95__baz");
+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");
+is(titlepage("foo bar\xACbaz"), "foo_bar__172__baz", 'U+00AC is in Latin-1 range');
+is(titlepage("foo bar\x{04D2}baz"), "foo_bar\x{04D2}baz", 'U+04D2 is alphanumeric');
+is(titlepage("foo bar\x{2260}baz"), "foo_bar__8800__baz", 'U+2260 is nonalphanumeric');
+is(titlepage("中文"), "中文", 'Chinese');
+is(titlepage("Кириллица"), "Кириллица", 'Cyrillic');
+is(titlepage("foo bar\x{0001F4A9}baz"), "foo_bar__128169__baz", 'U+1F4A9 is outside BMP');
+
+done_testing;