|
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 |
- |
|
|