: Move REG_INFTY-dependent tests from op/regexp.t

	Message-Id: <v03110701b1b83a06733a@[195.95.102.101]>
	 to op/pat.t; add tests for a few  more regexp parse failures etc.

p4raw-id: //depot/perl@1244

1 files changed, 4 insertions, 12 deletions

diff --git a/t/op/regexp.t b/t/op/regexp.t
index a4783bac2f..e3eb336c3b 100755
--- a/t/op/regexp.t
+++ b/t/op/regexp.t
@@ -23,21 +23,13 @@
 #
 # Columns 1, 2 and 5 are \n-interpolated.
 #
-# The variables $reg_infty, $reg_infty_m and $reg_infty_m in columns 1
-# and 5 are replaced respectively with the configuration value reg_infty,
-# reg_infty-1 and reg_infty+1, or if reg_infty is not defined in the
-# configuration, default values.  No other variables are substituted.
-
+# If you want to add a regular expression test that can't be expressed
+# in this format, don't add it here: put it in op/pat.t instead.
 
 $iters = shift || 1;		# Poor man performance suite, 10000 is OK.
 
-chdir 't' if -d 't';
-@INC = "../lib";
-eval 'use Config';          #  Defaults assumed if this fails
-$reg_infty = defined $Config{reg_infty} ? $Config{reg_infty} : 32767;
-$reg_infty_m = $reg_infty - 1; $reg_infty_p = $reg_infty + 1;
-
-open(TESTS,'op/re_tests') || die "Can't open re_tests";
+open(TESTS,'op/re_tests') || open(TESTS,'t/op/re_tests') ||
+	die "Can't open re_tests";
 
 while (<TESTS>) { }
 $numtests = $.;