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