move regex related tests out of t/op/ into t/re/

MANIFEST

@@ -4314,16 +4314,16 @@ t/op/or.t			See if || works in weird situations
 t/op/overload_integer.t			See if overload::constant for integer works after "use".   
 t/op/override.t			See if operator overriding works
 t/op/pack.t			See if pack and unpack work
-t/op/pat.t			See if esoteric patterns work
-t/op/pat_thr.t			See if esoteric patterns work in another thread
+t/re/pat.t			See if esoteric patterns work
+t/re/pat_thr.t			See if esoteric patterns work in another thread
 t/op/pos.t			See if pos works
 t/op/pow.t			See if ** works
 t/op/push.t			See if push and pop work
 t/op/pwent.t			See if getpw*() functions work
 t/op/qq.t			See if qq works
-t/op/qr_gc.t			See if qr doesn't leak
-t/op/qrstack.t			See if qr expands the stack properly
-t/op/qr.t			See if qr works
+t/re/qr_gc.t			See if qr doesn't leak
+t/re/qrstack.t			See if qr expands the stack properly
+t/re/qr.t			See if qr works
 t/op/quotemeta.t		See if quotemeta works
 t/op/rand.t			See if rand works
 t/op/range.t			See if .. works
@@ -4332,32 +4332,32 @@ t/op/readline.t			See if <> / readline / rcatline work
 t/op/read.t			See if read() works
 t/op/recurse.t			See if deep recursion works
 t/op/ref.t			See if refs and objects work
-t/op/reg_60508.t		See if bug #60508 is fixed
-t/op/reg_email.t		See if regex recursion works by parsing email addresses
-t/op/reg_email_thr.t		See if regex recursion works by parsing email addresses in another thread
-t/op/regexp_noamp.t		See if regular expressions work with optimizations
-t/op/regexp_notrie.t		See if regular expressions work without trie optimisation
-t/op/regexp_qr_embed.t		See if regular expressions work with embedded qr//
-t/op/regexp_qr_embed_thr.t	See if regular expressions work with embedded qr// in another thread
-t/op/regexp_qr.t		See if regular expressions work as qr//
-t/op/regexp.t			See if regular expressions work
-t/op/regexp_trielist.t		See if regular expressions work with trie optimisation
-t/op/regexp_unicode_prop.t	See if unicode properties work in regular expressions as expected
-t/op/regexp_unicode_prop_thr.t	See if unicode properties work in regular expressions as expected under threads
-t/op/reg_fold.t			See if case folding works properly
-t/op/reg_mesg.t			See if one can get regular expression errors
-t/op/reg_namedcapture.t		Make sure glob assignment doesn't break named capture
-t/op/reg_nc_tie.t		Test the tied methods of Tie::Hash::NamedCapture
-t/op/reg_pmod.t			See if regexp /p modifier works as expected
-t/op/reg_posixcc.t		See if posix character classes behave consistantly
-t/op/reg_unsafe.t		Check for unsafe match vars
+t/re/reg_60508.t		See if bug #60508 is fixed
+t/re/reg_email.t		See if regex recursion works by parsing email addresses
+t/re/reg_email_thr.t		See if regex recursion works by parsing email addresses in another thread
+t/re/regexp_noamp.t		See if regular expressions work with optimizations
+t/re/regexp_notrie.t		See if regular expressions work without trie optimisation
+t/re/regexp_qr_embed.t		See if regular expressions work with embedded qr//
+t/re/regexp_qr_embed_thr.t	See if regular expressions work with embedded qr// in another thread
+t/re/regexp_qr.t		See if regular expressions work as qr//
+t/re/regexp.t			See if regular expressions work
+t/re/regexp_trielist.t		See if regular expressions work with trie optimisation
+t/re/regexp_unicode_prop.t	See if unicode properties work in regular expressions as expected
+t/re/regexp_unicode_prop_thr.t	See if unicode properties work in regular expressions as expected under threads
+t/re/reg_fold.t			See if case folding works properly
+t/re/reg_mesg.t			See if one can get regular expression errors
+t/re/reg_namedcapture.t		Make sure glob assignment doesn't break named capture
+t/re/reg_nc_tie.t		Test the tied methods of Tie::Hash::NamedCapture
+t/re/reg_pmod.t			See if regexp /p modifier works as expected
+t/re/reg_posixcc.t		See if posix character classes behave consistantly
+t/re/reg_unsafe.t		Check for unsafe match vars
 t/op/repeat.t			See if x operator works
 t/op/reset.t			See if reset operator works
-t/op/re.t			See if exportable 're' funcs in universal.c work
-t/op/re_tests			Regular expressions for regexp.t
+t/re/re.t			See if exportable 're' funcs in universal.c work
+t/re/re_tests			Regular expressions for regexp.t
 t/op/reverse.t			See if reverse operator works
 t/op/runlevel.t			See if die() works from perl_call_*()
-t/op/rxcode.t			See if /(?{ code })/ works
+t/re/rxcode.t			See if /(?{ code })/ works
 t/op/setpgrpstack.t		See if setpgrp works
 t/op/sleep.t			See if sleep works
 t/op/smartmatch.t		See if the ~~ operator works
@@ -4374,12 +4374,12 @@ t/op/stat.t			See if stat works
 t/op/study.t			See if study works
 t/op/studytied.t		See if study works with tied scalars
 t/op/sub_lval.t			See if lvalue subroutines work
-t/op/subst_amp.t		See if $&-related substitution works
-t/op/substr.t			See if substr works
-t/op/substr_thr.t		See if substr works in another thread
-t/op/subst.t			See if substitution works
-t/op/substT.t			See if substitution works with -T
-t/op/subst_wamp.t		See if substitution works with $& present
+t/re/subst_amp.t		See if $&-related substitution works
+t/re/substr.t			See if substr works
+t/re/substr_thr.t		See if substr works in another thread
+t/re/subst.t			See if substitution works
+t/re/substT.t			See if substitution works with -T
+t/re/subst_wamp.t		See if substitution works with $& present
 t/op/sub.t			See if subroutines work
 t/op/switch.t			See if switches (given/when) work
 t/op/symbolcache.t		See if undef/delete works on stashes with functions

Makefile.SH

@@ -1438,7 +1438,7 @@ minitest.prep:
 # is crashing.
 minitest: miniperl$(EXE_EXT) lib/re.pm minitest.prep
 	- cd t && (rm -f perl$(EXE_EXT); $(LNS) ../miniperl$(EXE_EXT) perl$(EXE_EXT)) \
-		&& $(LDLIBPTH) $(RUN) ./perl TEST -minitest base/*.t comp/*.t cmd/*.t run/*.t io/*.t op/*.t uni/*.t </dev/tty
+		&& $(LDLIBPTH) $(RUN) ./perl TEST -minitest base/*.t comp/*.t cmd/*.t run/*.t io/*.t re/*.t op/*.t uni/*.t </dev/tty
 
 # Test via harness
 
@@ -1449,7 +1449,7 @@ test_harness_notty: test_prep
 	PERL=./perl HARNESS_NOTTY=1 $(MAKE) TESTFILE=harness _test
 
 test-reonly: test_prep
-	PERL=./perl TEST_ARGS='-re \\bpat\\b \\breg \\bre\b \\bsubst \\brxcode' $(MAKE) TESTFILE=harness _test
+	PERL=./perl TEST_ARGS='-re \\bre\\/' $(MAKE) TESTFILE=harness _test
 
 # Handy way to run perlbug -ok without having to install and run the
 # installed perlbug. We don't re-run the tests here - we trust the user.

pod/perlhack.pod

@@ -1802,6 +1802,11 @@ other directories.
 Tests for POD directives.  There are still some tests for the Pod
 modules hanging around in here that need to be moved out into F<lib/>.
 
+=item F<t/re/>
+
+Tests for regex related functions or behaviour. (These used to live
+in t/op).
+
 =item F<t/run/>
 
 Testing features of how perl actually runs, including exit codes and

t/TEST

@@ -356,7 +356,7 @@ unless (@ARGV) {
     # then comp, to validate that require works
     # then run, to validate that -M works
     # then we know we can -MTestInit for everything else, making life simpler
-    foreach my $dir (qw(base comp run cmd io op uni mro)) {
+    foreach my $dir (qw(base comp run cmd io re op uni mro)) {
 	_find_tests($dir);
     }
     _find_tests("lib") unless $::core;

t/harness

@@ -127,7 +127,7 @@ if (@ARGV) {
     unless (@tests) {
 	my @seq = <base/*.t>;
 
-	my @next = qw(comp run cmd io op uni mro lib porting);
+	my @next = qw(comp run cmd io re op uni mro lib porting);
 	push @next, 'japh' if $torture;
 	push @next, 'win32' if $^O eq 'MSWin32';
 	push @next, 'benchmark' if $ENV{PERL_BENCHMARK};

t/op/regexp.t → t/re/regexp.t

@@ -73,8 +73,8 @@ use vars qw($qr $skip_amp $qr_embed $qr_embed_thr); # set by our callers
 
 
 if (!defined $file) {
-    open(TESTS,'op/re_tests') || open(TESTS,'t/op/re_tests')
-	|| open(TESTS,':op:re_tests') || die "Can't open re_tests";
+    open(TESTS,'re/re_tests') || open(TESTS,'t/re/re_tests')
+	|| open(TESTS,':re:re_tests') || die "Can't open re_tests";
 }
 
 my @tests = <TESTS>;

t/re/regexp_noamp.t

@@ -0,0 +1,10 @@
+#!./perl
+
+$skip_amp = 1;
+for $file ('./re/regexp.t', './t/re/regexp.t', ':re:regexp.t') {
+  if (-r $file) {
+    do $file or die $@;
+    exit;
+  }
+}
+die "Cannot find ./re/regexp.t or ./t/re/regexp.t\n";

t/op/regexp_notrie.t → t/re/regexp_notrie.t

@@ -6,10 +6,10 @@ BEGIN {
 }
 
 $qr = 1;
-for $file ('./op/regexp.t', './t/op/regexp.t', ':op:regexp.t') {
+for $file ('./re/regexp.t', './t/re/regexp.t', ':re:regexp.t') {
     if (-r $file) {
 	do $file or die $@;
 	exit;
     }
 }
-die "Cannot find ./op/regexp.t or ./t/op/regexp.t\n";
+die "Cannot find ./re/regexp.t or ./t/re/regexp.t\n";

t/re/regexp_qr.t

@@ -0,0 +1,10 @@
+#!./perl
+
+$qr = 1;
+for $file ('./re/regexp.t', './t/re/regexp.t', ':re:regexp.t') {
+    if (-r $file) {
+	do $file or die $@;
+	exit;
+    }
+}
+die "Cannot find ./re/regexp.t or ./t/re/regexp.t\n";

t/re/regexp_qr_embed.t

@@ -0,0 +1,11 @@
+#!./perl
+
+$qr = 1;
+$qr_embed = 1;
+for $file ('./re/regexp.t', './t/re/regexp.t', ':re:regexp.t') {
+    if (-r $file) {
+	do $file or die $@;
+	exit;
+    }
+}
+die "Cannot find ./re/regexp.t or ./t/re/regexp.t\n";

t/re/regexp_qr_embed_thr.t

@@ -0,0 +1,11 @@
+#!./perl
+
+$qr = 1;
+$qr_embed_thr = 1;
+for $file ('./re/regexp.t', './t/re/regexp.t', ':re:regexp.t') {
+    if (-r $file) {
+	do $file or die $@;
+	exit;
+    }
+}
+die "Cannot find ./re/regexp.t or ./t/re/regexp.t\n";

t/op/regexp_trielist.t → t/re/regexp_trielist.t

@@ -6,10 +6,10 @@ BEGIN {
       }
 
 $qr = 1;
-for $file ('./op/regexp.t', './t/op/regexp.t', ':op:regexp.t') {
+for $file ('./re/regexp.t', './t/re/regexp.t', ':re:regexp.t') {
     if (-r $file) {
 	do $file or die $@;
 	exit;
     }
 }
-die "Cannot find ./op/regexp.t or ./t/op/regexp.t\n";
+die "Cannot find ./re/regexp.t or ./t/re/regexp.t\n";

t/re/substT.t

@@ -0,0 +1,9 @@
+#!perl -wT
+
+for $file ('re/subst.t', 't/re/subst.t', ':re:subst.t') {
+  if (-r $file) {
+    do "./$file";
+    exit;
+  }
+}
+die "Cannot find re/subst.t or t/re/subst.t\n";

t/re/subst_wamp.t

@@ -0,0 +1,11 @@
+#!./perl
+
+$dummy = defined $&;		# Now we have it...
+for $file ('re/subst.t', 't/re/subst.t', ':re:subst.t') {
+  if (-r $file) {
+    do "./$file";
+    exit;
+  }
+}
+die "Cannot find re/subst.t or t/re/subst.t\n";
+

win32/Makefile

@@ -1289,7 +1289,7 @@ test-reonly : reonly utils
 	$(XCOPY) $(PERLDLL) ..\t\$(NULL)
 	$(XCOPY) $(GLOBEXE) ..\t\$(NULL)
 	cd ..\t
-	$(PERLEXE) -I..\lib harness $(OPT) -re \bpat\b \breg \bre\b \bsubst \brxcode $(EXTRA)
+	$(PERLEXE) -I..\lib harness $(OPT) -re \bre\\/ $(EXTRA)
 	cd ..\win32
 
 regen :

win32/makefile.mk

@@ -1620,7 +1620,7 @@ test-reonly : reonly utils
 	$(XCOPY) $(PERLDLL) ..\t\$(NULL)
 	$(XCOPY) $(GLOBEXE) ..\t\$(NULL)
 	cd ..\t && \
-	$(PERLEXE) -I..\lib harness $(OPT) -re \bpat\b \breg \bre\b \bsubst \brxcode $(EXTRA) && \
+	$(PERLEXE) -I..\lib harness $(OPT) -re \bpat\\/ $(EXTRA) && \
 	cd ..\win32
 
 regen :