1# 00-basic.t
2
3use Test::More tests => 12;
4
5BEGIN {
6    use_ok( 'Crypt::SSLeay' );
7    use_ok( 'Crypt::SSLeay::CTX' );
8    use_ok( 'Crypt::SSLeay::Conn' );
9    use_ok( 'Crypt::SSLeay::Err' );
10    use_ok( 'Crypt::SSLeay::MainContext', 'main_ctx' );
11    use_ok( 'Crypt::SSLeay::X509' );
12    use_ok( 'Net::SSL' );
13}
14
15SKIP: {
16    skip( 'Test::Pod not installed on this system', 2 )
17        unless do {
18            eval "use Test::Pod";
19            $@ ? 0 : 1;
20        };
21
22    pod_file_ok( 'SSLeay.pm' );
23    pod_file_ok( 'lib/Net/SSL.pm' );
24}
25
26SKIP: {
27    skip( 'Test::Pod::Coverage not installed on this system', 2 )
28        unless do {
29            eval "use Test::Pod::Coverage";
30            $@ ? 0 : 1;
31        };
32    pod_coverage_ok( 'Crypt::SSLeay', 'Crypt-SSLeay POD coverage is go!' );
33    pod_coverage_ok( 'Net::SSL', 'Net::SSL POD coverage is go!' );
34}
35
36my $ctx = main_ctx();
37is(ref($ctx), 'Crypt::SSLeay::CTX', 'we have a context');
38