File: readfile.t

package info (click to toggle)
ikiwiki 1.33.6
  • links: PTS
  • area: main
  • in suites: etch
  • size: 1,656 kB
  • ctags: 331
  • sloc: perl: 5,462; sh: 42; makefile: 37
file content (12 lines) | stat: -rwxr-xr-x 295 bytes parent folder | download | duplicates (14) 
1
2
3
4
5
6
7
8
9
10
11
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(readfile("t/test1.mdwn"), 1));
is(readfile("t/test1.mdwn"),
	Encode::decode_utf8('![o](../images/o.jpg "ó")'."\n".'óóóóó'."\n"));