view release on metacpan or  search on metacpan

t/IsUTF8.t  view on Meta::CPAN

# Test 2
is($IsUTF8::VERSION, 0.2, "Version");

#########################

# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.

{

    local @ARGV = glob("t/data*");
    while (<>) {
	my ($expect) = /^(\w+)/;

	my $r1 = isUTF8;
	my $r2 = isUTF8($_);
	my $r3 = defined $r1 ? $r1 ? "UTF" : "NONE" : "OTHER";

	is($r1, $r2, "comparison of results");
	is($r3, $expect, "detection of $expect");