Commit | Line | Data |
e4fc8a1e |
1 | #!/usr/bin/perl -w |
13287dd5 |
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 | |
27caa5c1 |
15 | use Test::More tests => 7; |
13287dd5 |
16 | |
27caa5c1 |
17 | use_ok( 'Test::Harness::Assert' ); |
13287dd5 |
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' ); |