home *** CD-ROM | disk | FTP | other *** search
- #!./perl
-
- # $Header: op.regexp,v 3.0 89/10/18 15:31:02 lwall Locked $
-
- open(TESTS,'re_tests') || open(TESTS,'t.re_tests') || die "Can't open re_tests";
- while (<TESTS>) { }
- $numtests = $.;
- close(TESTS);
-
- print "1..$numtests\n";
- open(TESTS,'re_tests') || open(TESTS,'t.re_tests') || die "Can't open re_tests";
- while (<TESTS>) {
- ($pat, $subject, $result, $repl, $expect) = split(/[\t\n]/,$_);
- $input = join(':',$pat,$subject,$result,$repl,$expect);
- eval "\$match = (\$subject =~ \$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 "not ok $. $input => $got\n";
- }
- }
- }
- close(TESTS);
-