1N/A# $Id: Assert.pm,v 1.3 2003/09/11 15:57:29 andy Exp $
1N/A
1N/Apackage Test::Harness::Assert;
1N/A
1N/Ause strict;
1N/Arequire Exporter;
1N/Ause vars qw($VERSION @EXPORT @ISA);
1N/A
1N/A$VERSION = '0.02';
1N/A
1N/A@ISA = qw(Exporter);
1N/A@EXPORT = qw(assert);
1N/A
1N/A
1N/A=head1 NAME
1N/A
1N/ATest::Harness::Assert - simple assert
1N/A
1N/A=head1 SYNOPSIS
1N/A
1N/A ### FOR INTERNAL USE ONLY ###
1N/A
1N/A use Test::Harness::Assert;
1N/A
1N/A assert( EXPR, $name );
1N/A
1N/A=head1 DESCRIPTION
1N/A
1N/AA simple assert routine since we don't have Carp::Assert handy.
1N/A
1N/AB<For internal use by Test::Harness ONLY!>
1N/A
1N/A=head1 FUNCTIONS
1N/A
1N/A=head2 C<assert()>
1N/A
1N/A assert( EXPR, $name );
1N/A
1N/AIf the expression is false the program aborts.
1N/A
1N/A=cut
1N/A
1N/Asub assert ($;$) {
1N/A my($assert, $name) = @_;
1N/A
1N/A unless( $assert ) {
1N/A require Carp;
1N/A my $msg = 'Assert failed';
1N/A $msg .= " - '$name'" if defined $name;
1N/A $msg .= '!';
1N/A Carp::croak($msg);
1N/A }
1N/A
1N/A}
1N/A
1N/A=head1 AUTHOR
1N/A
1N/AMichael G Schwern C<< <schwern@pobox.com> >>
1N/A
1N/A=head1 SEE ALSO
1N/A
1N/AL<Carp::Assert>
1N/A
1N/A=cut
1N/A
1N/A1;