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