22

✏️ Editing: 00-basic.t

# 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();

MR SKB