assert.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
chdir 't';
@INC = ('../lib', 'lib'); }
else {
}
}
ok( !eval { assert( 0 ); 1 }, 'assert( FALSE ) causes death' ); like( $@, '/Assert failed/', ' with the right message' );
ok( eval { assert( 1 ); 1 }, 'assert( TRUE ) does nothing' );
ok( !eval { assert( 0, 'some name' ); 1 }, 'assert( FALSE, NAME )' ); like( $@, '/some name/', ' has the name' );