13 lines
313 B
Perl
Executable File
13 lines
313 B
Perl
Executable File
#!/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(''."\n".'óóóóó'."\n"));
|