]> git.vanrenterghem.biz Git - git.ikiwiki.info.git/blob - t/readfile.t
response
[git.ikiwiki.info.git] / t / readfile.t
1 #!/usr/bin/perl
2 use warnings;
3 use strict;
4 use Test::More tests => 3;
5 use Encode;
7 BEGIN { use_ok("IkiWiki"); }
9 # should read files as utf8
10 ok(Encode::is_utf8(readfile("t/test1.mdwn"), 1));
11 is(readfile("t/test1.mdwn"),
12         Encode::decode_utf8('![o](../images/o.jpg "ó")'."\n".'óóóóó'."\n"));