← Back to branch summary

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

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Charles Plessy
  • Date: 2009-03-10 07:19:11 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20090310071911-fukqzw54pyb1f0bd
Tags: 1.6.0-2
https://launchpad.net/bugs/324001
* Removed patch system (not used):
  - removed instuctions in debian/rules;
  - removed quilt from Build-Depends in debian/control.
* Re-enabled tests:
  - uncommented test command in debian/rules;
  - uncommented previously missing build-dependencies in debian/control.
  - Re-enabled tests and uncommented build-dependencies accordingly.
* Removed libmodule-build-perl and libtest-harness-perl from
  Build-Depends-Indep (provided by perl-modules).
* Better cleaning of empty directories using find -type d -empty -delete
  instead of rmdir in debian/rules (LP: #324001).

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;