This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip in minitest
[perl5.git] / t / comp / utf.t
1 #!./perl
2
3 BEGIN {
4     chdir 't' if -d 't';
5     @INC = '../lib';
6     unless (find PerlIO::Layer 'perlio') {
7         print "1..0 # Skip: not perlio\n";
8         exit 0;
9     }
10     if ($ENV{PERL_CORE_MINITEST}) {
11         print "1..0 # Skip: no dynamic loading on miniperl, no threads\n";
12         exit 0;
13     }
14 }
15
16 require "./test.pl";
17
18 plan(tests => 15);
19
20 my $BOM = chr(0xFEFF);
21
22 sub test {
23     my ($enc, $tag, $bom) = @_;
24     open(UTF_PL, ">:raw:encoding($enc)", "utf.pl")
25         or die "utf.pl($enc,$tag,$bom): $!";
26     print UTF_PL $BOM if $bom;
27     print UTF_PL "$tag\n";
28     close(UTF_PL);
29     my $got = do "./utf.pl";
30     is($got, $tag);
31 }
32
33 test("utf16le",    123,   1);
34 test("utf16le",    1234,  1);
35 test("utf16le",    12345, 1);
36 test("utf16be",    123,   1);
37 test("utf16be",    1234,  1);
38 test("utf16be",    12345, 1);
39 test("utf8",       123,   1);
40 test("utf8",       1234,  1);
41 test("utf8",       12345, 1);
42
43 test("utf16le",    123,   0);
44 test("utf16le",    1234,  0);
45 test("utf16le",    12345, 0);
46 test("utf16be",    123,   0);
47 test("utf16be",    1234,  0);
48 test("utf16be",    12345, 0);
49
50 END {
51     1 while unlink "utf.pl";
52 }