t/readfile.t

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4 use Test::More tests => 3;
   5 use Encode;
   6
   7 BEGIN { use_ok("IkiWiki"); }
   8
   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"));