Lines Matching refs:bits
23 # bits
29 eval { re::bits(1) };
30 like( $warn, qr/Useless use/, 'bits() should warn with no args' );
33 re::bits(0, 'debug');
36 re::bits(0, 'debugcolor');
39 re::bits(0, 'nosuchsubpragma');
42 ok( re::bits(0, 'taint') & 0x00100000, '... should set taint bits' );
43 ok( re::bits(0, 'eval') & 0x00200000, '... should set eval bits' );
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' );
53 ok( !( $^H & 0x00100000 ), 'unimport should clear bits in $^H when requested' );