Commit | Line | Data |
13287dd5 |
1 | package Test::Harness::Assert; |
2 | |
3 | use strict; |
4 | require Exporter; |
5 | use vars qw($VERSION @EXPORT @ISA); |
6 | |
e4fc8a1e |
7 | $VERSION = '0.02'; |
13287dd5 |
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 | |
e4fc8a1e |
31 | =head1 FUNCTIONS |
13287dd5 |
32 | |
e4fc8a1e |
33 | =head2 C<assert()> |
13287dd5 |
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 | |
20f9f807 |
56 | Michael G Schwern C<< <schwern at pobox.com> >> |
13287dd5 |
57 | |
58 | =head1 SEE ALSO |
59 | |
60 | L<Carp::Assert> |
61 | |
62 | =cut |
63 | |
64 | 1; |