print "tst_suite/tst-match.gre ...";
$file = "tst-match.dat";
open(IN, $file) or die " cannot open $file";
$line = 1;
while() {
        if (/GRE/) { die " failed test 1\n" if ($line != 1); }
        if (/gre/) { die " failed test 2\n" if ($line != 2); }
        if (/f(o{2})b/) {
        die " failed test 3\n" if ($line != 3);
        die " failed test 4\n" if $1 ne "oo";
        }
        if (/o{3}/) { die " failed test 5\n" if ($line != 4); }
        if (/lastline/i) { die " failed test 6\n" if ($line != 5 and $line != 6); }
        $line++;
}
die " failed test 7\n" if ($line != 7);
print " passed\n";