← Back to branch summary

~ubuntu-branches/ubuntu/trusty/bioperl/trusty

« back to all changes in this revision

Viewing changes to t/lib/Test/Harness/Assert.pm

  • Committer: Package Import Robot
  • Author(s): Charles Plessy
  • Date: 2013-09-22 13:39:48 UTC
  • mfrom: (3.1.11 sid)
  • Revision ID: package-import@ubuntu.com-20130922133948-c6z62zegjyp7ztou
Tags: 1.6.922-1
http://bugs.debian.org/722910
* New upstream release.
* Replaces and Breaks grinder (<< 0.5.3-3~) because of overlaping contents.
  Closes: #722910
* Stop Replacing and Breaking bioperl ( << 1.6.9 ): not needed anymore. 

Show diffs side-by-side

added added

removed removed

Lines of Context:
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;