# $Id: Assert.pm,v 1.2 2002/04/26 05:12:27 schwern Exp $
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 E<lt>schwern@pobox.comE<gt>