t/re/no_utf8_pm.t

   1 #!./perl
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     require './test.pl';
   6     set_up_inc('../lib');
   7 }
   8
   9 plan tests => 1;
  10
  11 # Make sure that case-insensitive matching of any Latin1 chars don't load
  12 # utf8.pm.  We assume that NULL won't force loading utf8.pm, and since it
  13 # doesn't match any of the other chars, the regexec.c code would try to load
  14 # a swash if it thought there was one.
  15 "\0" =~ /[\001-\xFF]/i;
  16
  17 ok(! exists $INC{"utf8.pm"}, 'case insensitive matching of any Latin1 chars does not load utf8.pm');