Why quote some keys?

[p5sagit/p5-mst-13.2.git] / ext / re / re.t

diff --git a/ext/re/re.t b/ext/re/re.t
index bc697a3..1a8f278 100644 (file)
--- a/ext/re/re.t
+++ b/ext/re/re.t
@@ -1,13 +1,13 @@
 #!./perl
 
-use strict;
-
 BEGIN {
        chdir 't' if -d 't';
        @INC = '../lib';
 }
 
-use Test::More 'no_plan';
+use strict;
+
+use Test::More tests => 13;
 require_ok( 're' );
 
 # setcolor
@@ -31,7 +31,7 @@ like( $warn, qr/Useless use/, 'bits() should warn with no args' );
 
 delete $ENV{PERL_RE_COLORS};
 re::bits(0, 'debug');
-is( $ENV{PERL_RE_COLORS}, '',
+is( $ENV{PERL_RE_COLORS}, undef,
        "... should not set regex colors given 'debug'" );
 re::bits(0, 'debugcolor');
 isnt( $ENV{PERL_RE_COLORS}, '',