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
|
use strict;
use warnings;
use Test::More 0.88;
use Test::Fatal;
use lib 't/lib';
use Test::Class::Load qw( :all );
is(
exception {
load_optional_class('Class::Load::OK');
},
undef,
'No failure loading a good class'
);
is(
exception {
load_optional_class('Class::Load::IDONOTEXIST');
},
undef,
'No failure loading a missing class'
);
isnt(
exception {
load_optional_class('Class::Load::SyntaxError');
},
undef,
'Loading a broken class breaks'
);
is( load_optional_class('Class::Load::OK'), 1 , 'Existing Class => 1');
is( load_optional_class('Class::Load::IDONOTEXIST'), 0, 'Missing Class => 0');
is( load_optional_class('Class::Load::VersionCheck'), 1, 'VersionCheck => 1');
is( load_optional_class('Class::Load::VersionCheck', {-version => 43}), 0,
'VersionCheck (with too-high version) => 0');
is( load_optional_class('Class::Load::VersionCheck', {-version => 41}), 1,
'VersionCheck (with ok version) => 1');
done_testing;
|