]> git.vanrenterghem.biz Git - git.ikiwiki.info.git/blob - t/linkpage.t
created
[git.ikiwiki.info.git] / t / linkpage.t
1 #!/usr/bin/perl
2 use warnings;
3 use strict;
4 use Test::More;
5 use utf8;
7 BEGIN { use_ok("IkiWiki"); }
9 is(linkpage("foo bar"), "foo_bar");
10 is(linkpage("foo bar baz"), "foo_bar_baz");
11 is(linkpage("foo bar/baz"), "foo_bar/baz");
12 is(linkpage("foo bar&baz"), "foo_bar__38__baz");
13 is(linkpage("foo bar & baz"), "foo_bar___38___baz");
14 is(linkpage("foo bar_baz"), "foo_bar_baz");
15 is(chr(95), '_');
16 is(linkpage("foo bar__95__baz"), "foo_bar__95__baz", 'underscore');
17 is(linkpage("foo bar\xACbaz"), "foo_bar__172__baz", 'U+00AC is in Latin-1 range');
18 is(linkpage("foo bar\x{04D2}baz"), "foo_bar\x{04D2}baz", 'U+04D2 is alphanumeric');
19 is(linkpage("foo bar\x{2260}baz"), "foo_bar__8800__baz", 'U+2260 is nonalphanumeric');
20 is(linkpage("中文"), "中文", 'Chinese');
21 is(linkpage("Кириллица"), "Кириллица", 'Cyrillic');
22 is(linkpage("foo bar\x{0001F4A9}baz"), "foo_bar__128169__baz", 'U+1F4A9 is outside BMP');
24 done_testing;