Upgrade to Test::Harness 2.46

[p5sagit/p5-mst-13.2.git] / lib / Test / Harness / t / strap.t

diff --git a/lib/Test/Harness/t/strap.t b/lib/Test/Harness/t/strap.t
index ab9d0da..f1cba10 100644 (file)
--- a/lib/Test/Harness/t/strap.t
+++ b/lib/Test/Harness/t/strap.t
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl -Tw
 
 BEGIN {
     if( $ENV{PERL_CORE} ) {
@@ -12,7 +12,7 @@ BEGIN {
 
 use strict;
 
-use Test::More tests => 170;
+use Test::More tests => 176;
 
 BEGIN { use_ok('Test::Harness::Straps'); }
 
@@ -59,6 +59,7 @@ my @not_headers = (' 1..2',
 
 foreach my $unheader (@not_headers) {
     my $strap = Test::Harness::Straps->new;
+    isa_ok( $strap, 'Test::Harness::Straps' );
 
     ok( !$strap->_is_header($unheader),     
         "_is_header(), not a header '$unheader'" );