#!./perl

# $RCSfile: regexp.t,v $$Revision: 4.0.1.1 $$Date: 91/06/10 01:30:29 $

open(TESTS,'op/re_tests') || open(TESTS,'t/op/re_tests')
    || die "Can't open re_tests";
while (<TESTS>) { }
$numtests = $.;
close(TESTS);

print "1..$numtests\n";
open(TESTS,'op/re_tests') || open(TESTS,'t/op/re_tests')
    || die "Can't open re_tests";
$| = 1;
while (<TESTS>) {
#    print "Test $.: \n";
    ($pat, $subject, $result, $repl, $expect) = split(/[\t\n]/,$_);
#    print "Line = $_\n";
#    print "Parsed: $pat $subject $result $repl $expect\n";
    $input = join(':',$pat,$subject,$result,$repl,$expect);
#    print "Joined: $input\n";
    $pat = "'$pat'" unless $pat =~ /^'/;
#    print "Pat: $pat\n";
    eval "\$match = (\$subject =~ m$pat); \$got = \"$repl\";";
    if ($result eq 'c') {
	if ($@ ne '') {print "ok $.\n";} else {print "not ok $.\n";}
    }
    elsif ($result eq 'n') {
	if (!$match) {print "ok $.\n";} else {print "not ok $. $input => $got\n";}
    }
    else {
	if ($match && $got eq $expect) {
	    print "ok $.\n";
	}
	else {
#	    print "  Result = $result\n";
#	    print "  Got = $got\n";
#	    print "  Expect = $expect\n";
#	    print "  Input = $input\n";
	    print "  not ok $. $input => $got\n";
	}
    }
}
close(TESTS);