* -CSD does not affect modules, so readfile() was not using the utf-8 input

[ikiwiki.git] / t / readfile.t

diff --git a/t/readfile.t b/t/readfile.t
new file mode 100755 (executable)
index 0000000..5332f4c
--- /dev/null
+++ b/t/readfile.t
@@ -0,0 +1,12 @@
+#!/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(IkiWiki::readfile("t/test1.mdwn"), 1));
+is(IkiWiki::readfile("t/test1.mdwn"),
+       Encode::decode_utf8('![o](../images/o.jpg "ó")'."\n".'óóóóó'."\n"));