1#!./perl 2 3# Most of the strict effects are tested for in t/re/reg_mesgs.t 4 5BEGIN { 6 require Config; 7 if (($Config::Config{'extensions'} !~ /\bre\b/) ){ 8 print "1..0 # Skip -- Perl configured without re module\n"; 9 exit 0; 10 } 11} 12 13use strict; 14 15use Test::More tests => 10; 16BEGIN { require_ok( 're' ); } 17 18{ 19 my @w; 20 no warnings; 21 local $SIG{__WARN__}; 22 BEGIN { $SIG{__WARN__} = sub { push @w, @_ } }; 23 qr/\b*/; 24 BEGIN { is(scalar @w, 0, 'No default-on warnings for qr/\b*/'); } 25 BEGIN {undef @w; } 26 27 { 28 use re 'strict'; 29 qr/\b*/; 30 31 BEGIN { is(scalar @w, 1, 'use re "strict" turns on warnings'); } 32 33 BEGIN { undef @w; } 34 35 no re 'strict'; 36 qr/\b*/; 37 38 BEGIN { is(scalar @w, 0, 'no re "strict" restores warnings state'); } 39 } 40 41 BEGIN {undef @w; } 42 qr/\b*/; 43 BEGIN { is(scalar @w, 0, 'dropping out of "strict" scope reverts warnings default'); } 44 45 { 46 use re 'strict'; 47 qr/\b*/; 48 49 BEGIN { is(scalar @w, 1, 'use re "strict" turns on warnings'); } 50 51 no re 'strict'; 52 BEGIN {undef @w; } 53 qr/\b*/; 54 BEGIN { is(scalar @w, 0, 'turning off "strict" scope reverts warnings default'); } 55 } 56 57 { 58 use warnings 'regexp'; 59 BEGIN {undef @w; } 60 qr/\b*/; 61 BEGIN { is(scalar @w, 1, 'use warnings "regexp" works'); } 62 63 use re 'strict'; 64 BEGIN {undef @w; } 65 qr/\b*/; 66 BEGIN { is(scalar @w, 1, 'use re "strict" keeps warnings on'); } 67 68 no re 'strict'; 69 BEGIN {undef @w; } 70 qr/\b*/; 71 BEGIN { is(scalar @w, 1, 'turning off "strict" scope doesn\'t affect warnings that were already on'); } 72 } 73} 74