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