grep.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
#
# grep() and map() tests
#
print "1..27\n";
$test = 1;
sub ok {
}
{
$test++;
$test++;
$test++;
}
{
$test++;
print map
$test++;
$test++;
({a=>$_},
$test++;
$test++;
print map
$test++;
$test++;
{a=>$_},
$test++;
my $x = "ok \xFF\xFF\n";
$test++;
print map
$test++;
$test++;
print map
$test++;
$test++;
print grep
$test++;
$test++;
print grep
({a => $_}->{a},
$test++;
$test++;
print grep
$test++;
$test++;
print grep
{a => $_}->{a},
$test++;
$test++;
print grep
$test++;
$test++;
print grep
$test++;
}