1 # $Id: Assert.pm 250 2003-09-11 15:57:29Z andy $
3 package Test::Harness::Assert;
7 use vars qw($VERSION @EXPORT @ISA);
17 Test::Harness::Assert - simple assert
21 ### FOR INTERNAL USE ONLY ###
23 use Test::Harness::Assert;
25 assert( EXPR, $name );
29 A simple assert routine since we don't have Carp::Assert handy.
31 B<For internal use by Test::Harness ONLY!>
37 assert( EXPR, $name );
39 If the expression is false the program aborts.
44 my($assert, $name) = @_;
48 my $msg = 'Assert failed';
49 $msg .= " - '$name'" if defined $name;
58 Michael G Schwern C<< <schwern@pobox.com> >>