re.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
use strict;
# setcolor
local $ENV{PERL_RE_TC};
'setcolor() should provide default colors' );
# bits
# get on
my $warn;
$warn = shift;
};
is( $ENV{PERL_RE_COLORS}, undef,
"... should not set regex colors given 'debug'" );
"... should set regex colors given 'debugcolor'" );
'... should warn about unknown subpragma' );
local $^H;
# import
sub Tgetent {
}
sub Tputs {
return $_[1];
}