lib/Test/Harness/t/harness.t

   1 #!/usr/bin/perl -Tw
   2
   3 BEGIN {
   4     if ( $ENV{PERL_CORE} ) {
   5         chdir 't';
   6         @INC = ('../lib', 'lib');
   7     }
   8     else {
   9         unshift @INC, 't/lib';
  10     }
  11 }
  12
  13 use strict;
  14
  15 use Test::More tests => 2;
  16
  17 BEGIN {
  18     use_ok( 'Test::Harness' );
  19 }
  20
  21 my $strap = Test::Harness->strap;
  22 isa_ok( $strap, 'Test::Harness::Straps' );