This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Merge branch 'release-5.29.2' into blead
[perl5.git] / t / re / alpha_assertions.t
CommitLineData
e7206367
KW
1#!./perl
2
3use strict;
4use warnings;
5no warnings 'once';
6
7# This tests that the alphabetic assertions, like '(*atomic:...) work
8# It just sets a flag and calls regexp.t which will run through its test
9# suite, modifiying the tests to use the alphabetic synonyms.
10
11BEGIN { $::alpha_assertions = 1; }
12for my $file ('./re/regexp.t', './t/re/regexp.t', ':re:regexp.t') {
13 if (-r $file) {
14 do $file or die $@;
15 exit;
16 }
17}
18die "Cannot find ./re/regexp.t or ./t/re/regexp.t\n";