1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!./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";
|
