t/re/alpha_assertions.t

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