ikiwiki/t/readfile.t

13 lines
295 B
Perl
Raw Normal View History

#!/usr/bin/perl
use warnings;
use strict;
use Test::More tests => 3;
use Encode;
BEGIN { use_ok("IkiWiki"); }
# should read files as utf8
ok(Encode::is_utf8(readfile("t/test1.mdwn"), 1));
is(readfile("t/test1.mdwn"),
Encode::decode_utf8('![o](../images/o.jpg "ó")'."\n".'óóóóó'."\n"));