4 if( $ENV{PERL_CORE} ) {
6 @INC = ('../lib', 'lib');
15 use Test::More tests => 7;
17 use_ok( 'Test::Harness::Assert' );
20 ok( defined &assert, 'assert() exported' );
22 ok( !eval { assert( 0 ); 1 }, 'assert( FALSE ) causes death' );
23 like( $@, '/Assert failed/', ' with the right message' );
25 ok( eval { assert( 1 ); 1 }, 'assert( TRUE ) does nothing' );
27 ok( !eval { assert( 0, 'some name' ); 1 }, 'assert( FALSE, NAME )' );
28 like( $@, '/some name/', ' has the name' );