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