1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
use strict; use warnings;
use Test::More;
BEGIN { # compat shim for old Test::More
defined &BAIL_OUT or *BAIL_OUT = sub {
my $t = Test::Builder->new;
$t->no_ending(1); # needed before Test::Builder 0.61
$t->BAILOUT(@_); # added in Test::Builder 0.40
};
}
my @module = qw(
Bencode
);
plan tests => 0+@module;
diag "Testing on Perl $] at $^X";
for my $module ( @module ) {
use_ok( $module ) or BAIL_OUT "Cannot load module '$module'";
no warnings 'uninitialized';
diag "Testing $module @ " . $module->VERSION;
}
|
