1N/A chdir 't' if -d 't'; 1N/A 'setcolor() should provide default colors' ); 1N/A "... should not set regex colors given 'debug'" ); 1N/A "... should set regex colors given 'debugcolor'" ); 1N/A '... should warn about unknown subpragma' ); 1N/Aok( re::bits(0, 'taint') & 0x00100000, '... should set taint bits' ); 1N/Aok( re::bits(0, 'eval') & 0x00200000, '... should set eval bits' ); 1N/Aok( $^H & 0x00100000, 'import should set taint bits in $^H when requested' ); 1N/Aok( $^H & 0x00200000, 'import should set eval bits in $^H when requested' ); 1N/Aok( !( $^H & 0x00100000 ), 'unimport should clear bits in $^H when requested' ); 1N/Aok( !( $^H & 0x00200000 ), '... and again' );