10 use Test::More tests => 13;
14 $INC{ 'Term/Cap.pm' } = 1;
15 local $ENV{PERL_RE_TC};
17 is( $ENV{PERL_RE_COLORS}, "md\tme\tso\tse\tus\tue",
18 'setcolor() should provide default colors' );
19 $ENV{PERL_RE_TC} = 'su,n,ny';
21 is( $ENV{PERL_RE_COLORS}, "su\tn\tny", '... or use $ENV{PERL_RE_COLORS}' );
26 local $SIG{__WARN__} = sub {
30 like( $warn, qr/Useless use/, 'bits() should warn with no args' );
32 delete $ENV{PERL_RE_COLORS};
34 is( $ENV{PERL_RE_COLORS}, '',
35 "... should not set regex colors given 'debug'" );
36 re::bits(0, 'debugcolor');
37 isnt( $ENV{PERL_RE_COLORS}, '',
38 "... should set regex colors given 'debugcolor'" );
39 re::bits(0, 'nosuchsubpragma');
40 like( $warn, qr/Unknown "re" subpragma/,
41 '... should warn about unknown subpragma' );
42 ok( re::bits(0, 'taint') & 0x00100000, '... should set taint bits' );
43 ok( re::bits(0, 'eval') & 0x00200000, '... should set eval bits' );
48 re->import('taint', 'eval');
49 ok( $^H & 0x00100000, 'import should set taint bits in $^H when requested' );
50 ok( $^H & 0x00200000, 'import should set eval bits in $^H when requested' );
52 re->unimport('taint');
53 ok( !( $^H & 0x00100000 ), 'unimport should clear bits in $^H when requested' );
55 ok( !( $^H & 0x00200000 ), '... and again' );