view release on metacpan or  search on metacpan

t/01-pkcs11_modules.t  view on Meta::CPAN

with 'CommonTest';

test module_dirs => sub {
    my $self = shift;

    my $mod = 'Crypt::PKCS11::Easy';
    require_ok $mod;

    like(
        exception {
            $mod->new(module => 'nosuchmodule', module_dirs => 'test')
        },
        qr/did not pass type constraint "ArrayRef"/,
        'module_dirs must be an arrayref',
    );

    like(
        exception {
            $mod->new(module => 'nosuchmodule', module_dirs => ['test'])
        },
        qr/No valid module paths found/,
        'No valid module dirs were passed',
    );

    # this is an empty file, so can never be loaded
    like(
        exception {
            $mod->new(
                module      => 'fakemodule',

t/01-pkcs11_modules.t  view on Meta::CPAN

    # this is an empty file, so can never be loaded
    like(
        exception { $mod->new(module => 't/lib/fakemodule.so') },
        qr/^Failed to load PKCS11 module \[.+\/t\/lib\/fakemodule.so\]: CKR_FUNCTION_FAILED/,
        'Attempted to load module from full path',
    );

    like(
        exception {
            Crypt::PKCS11::Easy->new(
                module      => 'nosuchmodule',
                module_dirs => ['/tmp'])
        },
        qr/Unable to find .+nosuchmodule/,
        'Died with an invalid module',
    );

  SKIP: {
        skip 'softhsm2 is not available', 1 unless $self->has_softhsm2;

        # this will load but fail to initialize without valid config
        local $ENV{SOFTHSM2_CONF} = undef;
        like(
            exception { $mod->new(module => 'libsofthsm2') },