Lines 16-58
Link Here
|
16 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
16 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
use Test::More tests => 73; |
19 |
use Test::More; |
20 |
use Test::MockModule; |
20 |
use Test::MockModule; |
21 |
use t::lib::Mocks; |
21 |
use t::lib::Mocks; |
22 |
use Data::Dumper; |
22 |
use Data::Dumper; |
23 |
|
23 |
|
24 |
# Check that all the modules we need are installed, or bail out |
24 |
# Check that all the modules we need are installed, or bail out |
25 |
BEGIN { |
25 |
BEGIN { |
|
|
26 |
my $missing_lib; |
26 |
eval { |
27 |
eval { |
27 |
require Test::DBIx::Class; |
28 |
require Test::DBIx::Class; |
28 |
1; |
29 |
1; |
29 |
} or do { |
30 |
} or do { |
30 |
plan skip_all => "Test::DBIx::Class is not available"; |
31 |
$missing_lib = "Test::DBIx::Class"; |
31 |
}; |
32 |
}; |
32 |
} |
33 |
|
33 |
BEGIN { |
|
|
34 |
eval { |
34 |
eval { |
35 |
require SOAP::Lite; |
35 |
require SOAP::Lite; |
36 |
1; |
36 |
1; |
37 |
} or do { |
37 |
} or do { |
38 |
plan skip_all => "SOAP::Lite is not available"; |
38 |
$missing_lib = "SOAP::Lite"; |
39 |
}; |
39 |
}; |
40 |
} |
40 |
|
41 |
BEGIN { |
|
|
42 |
eval { |
41 |
eval { |
43 |
require Crypt::GCrypt; |
42 |
require Crypt::GCrypt; |
44 |
1; |
43 |
1; |
45 |
} or do { |
44 |
} or do { |
46 |
plan skip_all => "Crypt::GCrypt is not available"; |
45 |
$missing_lib = "Crypt::GCrypt"; |
47 |
}; |
46 |
}; |
48 |
} |
47 |
|
49 |
BEGIN { |
|
|
50 |
eval { |
48 |
eval { |
51 |
require Convert::BaseN; |
49 |
require Convert::BaseN; |
52 |
1; |
50 |
1; |
53 |
} or do { |
51 |
} or do { |
54 |
plan skip_all => "Convert::BaseN is not available"; |
52 |
$missing_lib = "Convert::BaseN"; |
55 |
}; |
53 |
}; |
|
|
54 |
|
55 |
if ( $missing_lib ) { |
56 |
plan skip_all => $missing_lib . " is not available."; |
57 |
} else { |
58 |
# Everything good |
59 |
plan tests => 73; |
60 |
} |
56 |
} |
61 |
} |
57 |
|
62 |
|
58 |
use Test::DBIx::Class { |
63 |
use Test::DBIx::Class { |
59 |
- |
|
|