2 if ($ENV{'PERL_CORE'}){
4 unshift @INC, '../lib';
6 require Config; import Config;
7 if ($Config{'extensions'} !~ /\bEncode\b/) {
8 print "1..0 # Skip: Encode was not built\n";
15 #use Test::More qw(no_plan);
16 use Test::More tests => 15;
22 my ($fallenback, $quiet, $perlqq);
23 for my $i (0x20..0x7e){
26 $fallenback = $quiet = $perlqq = $nofallback = $original;
29 for my $i (0x80..0xff){
33 $perlqq .= sprintf("\\x{%04x}", $i);
35 utf8::upgrade($original);
36 my $meth = find_encoding('ascii');
39 my $dst = $meth->encode($src, FB_DEFAULT);
40 is($dst, $fallenback, "FB_DEFAULT");
41 is($src, $original, "FB_DEFAULT residue");
44 eval{ $dst = $meth->encode($src, FB_CROAK) };
45 like($@, qr/does not map to ascii/o, "FB_CROAK");
46 is($src, $original, "FB_CROAK residue");
49 eval{ $dst = $meth->encode($src, FB_CROAK) };
50 like($@, qr/does not map to ascii/o, "FB_CROAK");
51 is($src, $original, "FB_CROAK residue");
55 eval{ $dst = $meth->encode($src, FB_CROAK) };
56 is($@, '', "FB_CROAK on success");
57 is($src, '', "FB_CROAK on success residue");
60 $dst = $meth->encode($src, FB_QUIET);
61 is($dst, $quiet, "FB_QUIET");
62 is($src, $residue, "FB_QUIET residue");
66 local $SIG{__WARN__} = sub { $message = $_[0] };
68 $dst = $meth->encode($src, FB_WARN);
69 is($dst, $quiet, "FB_WARN");
70 is($src, $residue, "FB_WARN residue");
71 like($message, qr/does not map to ascii/o, "FB_WARN message");
75 $dst = $meth->encode($src, FB_PERLQQ);
76 is($dst, $perlqq, "FB_PERLQQ");
77 is($src, '', "FB_PERLQQ residue");