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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
#
# $Id: 01_use.t 163 2004-12-31 05:07:16Z james $
#
use strict;
use warnings;
use File::Find;
# find the number of .pm files in the lib directory
my $pms = 0;
File::Find::find( sub { /\.pm$/ && $pms++ }, 'lib');
my %expected;
BEGIN {
%expected = (
'Test::NoBreakpoints' => '0.13',
);
use Test::More;
our $tests = ((keys %expected) * 2) + 1;
eval "use Test::NoWarnings";
$tests++ unless( $@ );
plan tests => $tests;
}
# make sure that we are testing the number of .pm files in lib
is keys %expected, $pms, "$pms version tests planned";
# check each package
for my $package( keys %expected ) {
# pull in the package
use_ok($package);
# make sure the package version is correct
my $version_var;
{
no strict 'refs';
$version_var = ${$package . '::VERSION'};
}
is($version_var, $expected{$package},
"$package is at version $expected{$package}");
}
#
# EOF
|
