[p5sagit/p5-mst-13.2.git] / cpan / encoding-warnings / t / 3-normal.t

use Test;
BEGIN { plan tests => 2 }

use strict;
use encoding::warnings 'FATAL';
ok(encoding::warnings->VERSION);

if ($] < 5.008) {
    ok(1);
    exit;
}

my ($a, $b, $c, $ok);
$ok = 1;

$SIG{__DIE__} = sub { $ok = 0 };
$SIG{__WARN__} = sub { $ok = 0 };

$a = chr(20000);
$b = chr(20000);
$c = $a . $b;

ok($ok);
Commit	Line	Data
de1df517	1	use Test;
	2	BEGIN { plan tests => 2 }
	3
	4	use strict;
	5	use encoding::warnings 'FATAL';
	6	ok(encoding::warnings->VERSION);
	7
	8	if ($] < 5.008) {
	9	ok(1);
	10	exit;
	11	}
	12
	13	my ($a, $b, $c, $ok);
	14	$ok = 1;
	15
	16	$SIG{__DIE__} = sub { $ok = 0 };
	17	$SIG{__WARN__} = sub { $ok = 0 };
	18
	19	$a = chr(20000);
	20	$b = chr(20000);
	21	$c = $a . $b;
	22
	23	ok($ok);