branch-1-6/t/lib/Test/Harness/Assert.pm

   1 package Test::Harness::Assert;
   2
   3 use strict;
   4 require Exporter;
   5 use vars qw($VERSION @EXPORT @ISA);
   6
   7 $VERSION = '0.02';
   8
   9 @ISA = qw(Exporter);
  10 @EXPORT = qw(assert);
  11
  12
  13 =head1 NAME
  14
  15 Test::Harness::Assert - simple assert
  16
  17 =head1 SYNOPSIS
  18
  19   ### FOR INTERNAL USE ONLY ###
  20
  21   use Test::Harness::Assert;
  22
  23   assert( EXPR, $name );
  24
  25 =head1 DESCRIPTION
  26
  27 A simple assert routine since we don't have Carp::Assert handy.
  28
  29 B<For internal use by Test::Harness ONLY!>
  30
  31 =head1 FUNCTIONS
  32
  33 =head2 C<assert()>
  34
  35   assert( EXPR, $name );
  36
  37 If the expression is false the program aborts.
  38
  39 =cut
  40
  41 sub assert ($;$) {
  42     my($assert, $name) = @_;
  43
  44     unless( $assert ) {
  45         require Carp;
  46         my $msg = 'Assert failed';
  47         $msg .= " - '$name'" if defined $name;
  48         $msg .= '!';
  49         Carp::croak($msg);
  50     }
  51
  52 }
  53
  54 =head1 AUTHOR
  55
  56 Michael G Schwern C<< <schwern at pobox.com> >>
  57
  58 =head1 SEE ALSO
  59
  60 L<Carp::Assert>
  61
  62 =cut
  63
  64 1;