lib/Test/Harness/t/assert.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 => 7;
  16
  17 use_ok( 'Test::Harness::Assert' );
  18
  19
  20 ok( defined &assert,                'assert() exported' );
  21
  22 ok( !eval { assert( 0 ); 1 },       'assert( FALSE ) causes death' );
  23 like( $@, '/Assert failed/',        '  with the right message' );
  24
  25 ok( eval { assert( 1 );  1 },       'assert( TRUE ) does nothing' );
  26
  27 ok( !eval { assert( 0, 'some name' ); 1 },  'assert( FALSE, NAME )' );
  28 like( $@, '/some name/',                    '  has the name' );