diff options
Diffstat (limited to 'Perl/t/Test/Harness/Assert.pm')
-rw-r--r-- | Perl/t/Test/Harness/Assert.pm | 68 |
1 files changed, 68 insertions, 0 deletions
diff --git a/Perl/t/Test/Harness/Assert.pm b/Perl/t/Test/Harness/Assert.pm new file mode 100644 index 0000000..3ee23e3 --- /dev/null +++ b/Perl/t/Test/Harness/Assert.pm @@ -0,0 +1,68 @@ +# $Id$ + +package Test::Harness::Assert; + +use strict; +require Exporter; +use vars qw($VERSION @EXPORT @ISA); + +$VERSION = '0.01'; + +@ISA = qw(Exporter); +@EXPORT = qw(assert); + + +=head1 NAME + +Test::Harness::Assert - simple assert + +=head1 SYNOPSIS + + ### FOR INTERNAL USE ONLY ### + + use Test::Harness::Assert; + + assert( EXPR, $name ); + +=head1 DESCRIPTION + +A simple assert routine since we don't have Carp::Assert handy. + +B<For internal use by Test::Harness ONLY!> + +=head2 Functions + +=over 4 + +=item B<assert> + + assert( EXPR, $name ); + +If the expression is false the program aborts. + +=cut + +sub assert ($;$) { + my($assert, $name) = @_; + + unless( $assert ) { + require Carp; + my $msg = 'Assert failed'; + $msg .= " - '$name'" if defined $name; + $msg .= '!'; + Carp::croak($msg); + } + +} + +=head1 AUTHOR + +Michael G Schwern E<lt>schwern@pobox.comE<gt> + +=head1 SEE ALSO + +L<Carp::Assert> + +=cut + +1; |