Commit | Line | Data |
---|---|---|
e7206367 KW |
1 | #!./perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | no 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 | ||
11 | BEGIN { $::alpha_assertions = 1; } | |
12 | for 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 | } | |
18 | die "Cannot find ./re/regexp.t or ./t/re/regexp.t\n"; |