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
49
50
51
52
53
54
55
56
|
# Basic load and method existance tests for Algorithm::Dependency
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use Test::More tests => 16;
# Check their perl version
ok( $] > 5.005, 'Perl version is new enough' );
# Load the main modules
use_ok( 'Algorithm::Dependency' );
use_ok( 'Algorithm::Dependency::Ordered' );
use_ok( 'Algorithm::Dependency::Weight' );
use_ok( 'Algorithm::Dependency::Source::File' );
use_ok( 'Algorithm::Dependency::Source::HoA' );
# Check for version lock
is( $Algorithm::Dependency::VERSION,
$Algorithm::Dependency::Ordered::VERSION,
'$VERSION matches for ::Ordered' );
is( $Algorithm::Dependency::VERSION,
$Algorithm::Dependency::Weight::VERSION,
'$VERSION matches for ::Weight' );
is( $Algorithm::Dependency::VERSION,
$Algorithm::Dependency::Source::VERSION,
'$VERSION matches for ::Source' );
is( $Algorithm::Dependency::VERSION,
$Algorithm::Dependency::Source::File::VERSION,
'$VERSION matches for ::Source::File' );
is( $Algorithm::Dependency::VERSION,
$Algorithm::Dependency::Source::HoA::VERSION,
'$VERSION matches for ::Source::HoA' );
# Do it again to avoid warnings
is( $Algorithm::Dependency::VERSION,
$Algorithm::Dependency::Ordered::VERSION,
'$VERSION matches for ::Ordered' );
is( $Algorithm::Dependency::VERSION,
$Algorithm::Dependency::Weight::VERSION,
'$VERSION matches for ::Weight' );
is( $Algorithm::Dependency::VERSION,
$Algorithm::Dependency::Source::VERSION,
'$VERSION matches for ::Source' );
is( $Algorithm::Dependency::VERSION,
$Algorithm::Dependency::Source::File::VERSION,
'$VERSION matches for ::Source::File' );
is( $Algorithm::Dependency::VERSION,
$Algorithm::Dependency::Source::HoA::VERSION,
'$VERSION matches for ::Source::HoA' );
|
