[perl5.git] / t / re / alpha_assertions.t

#!./perl

use strict;
use warnings;
no warnings 'once';
no warnings 'experimental::vlb';

# This tests that the alphabetic assertions, like '(*atomic:...) work
# It just sets a flag and calls regexp.t which will run through its test
# suite, modifiying the tests to use the alphabetic synonyms.

BEGIN { $::alpha_assertions = 1; }
for my $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";
Commit	Line	Data
e7206367 KW	1	#!./perl
	2
	3	use strict;
	4	use warnings;
	5	no warnings 'once';
2abbd513	6	no warnings 'experimental::vlb';
e7206367 KW	7
	8	# This tests that the alphabetic assertions, like '(*atomic:...) work
	9	# It just sets a flag and calls regexp.t which will run through its test
	10	# suite, modifiying the tests to use the alphabetic synonyms.
	11
	12	BEGIN { $::alpha_assertions = 1; }
	13	for my $file ('./re/regexp.t', './t/re/regexp.t', ':re:regexp.t') {
	14	if (-r $file) {
	15	do $file or die $@;
	16	exit;
	17	}
	18	}
	19	die "Cannot find ./re/regexp.t or ./t/re/regexp.t\n";