Upgrade to Test::Harness 2.29.

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

diff --git a/lib/Test/Harness/t/callback.t b/lib/Test/Harness/t/callback.t
index d774958..646e81f 100644 (file)
--- a/lib/Test/Harness/t/callback.t
+++ b/lib/Test/Harness/t/callback.t
@@ -43,10 +43,11 @@ my $SAMPLE_TESTS = $ENV{PERL_CORE}
                                   test other other test other )],
            );
 
-plan tests => scalar keys %samples;
+plan tests => 2 + scalar keys %samples;
 
-use Test::Harness::Straps;
+use_ok( 'Test::Harness::Straps' );
 my $strap = Test::Harness::Straps->new;
+isa_ok( $strap, 'Test::Harness::Straps' );
 $strap->{callback} = sub {
     my($self, $line, $type, $totals) = @_;
     push @out, $type;