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"; 19