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
|
# 00-basic.t
use Test::More;
BEGIN {
use_ok( 'Crypt::SSLeay' );
use_ok( 'Crypt::SSLeay::CTX' );
use_ok( 'Crypt::SSLeay::Conn' );
use_ok( 'Crypt::SSLeay::Err' );
use_ok( 'Crypt::SSLeay::MainContext', 'main_ctx' );
use_ok( 'Crypt::SSLeay::X509' );
use_ok(
'Crypt::SSLeay::Version',
qw(
openssl_built_on
openssl_cflags
openssl_dir
openssl_platform
openssl_version
openssl_version_number
),
);
use_ok( 'Net::SSL' );
}
SKIP: {
skip( 'Test::Pod not installed on this system', 2 )
unless do {
eval "use Test::Pod";
$@ ? 0 : 1;
};
pod_file_ok( 'SSLeay.pm' );
pod_file_ok( 'lib/Net/SSL.pm' );
}
SKIP: {
my @modules = qw(Crypt::SSLeay Crypt::SSLeay::Version Net::SSL);
eval "use Test::Pod::Coverage; 1" or skip(
'Test::Pod::Coverage not installed on this system',
scalar @modules
);
pod_coverage_ok($_, "$_ POD coverage") for @modules;
}
{
my $ctx = main_ctx();
isa_ok($ctx, 'Crypt::SSLeay::CTX', 'main context');
}
done_testing();
|
