CPAN::Groonga

$line.($n?': '.$n:'') );
    }
}

sub myisnt {
    my ($a, $b, $n) = @_;
    my ($package, $filename, $line) = caller;

    unless ($LEAK_TESTING) {
        isnt( $a, $b, $filename.'@'.$line.($n?': '.

EN_NOT_PRESENT, 'infoCheck: C_GetTokenInfo slotWithNoToken' );
    if ($rv == CKR_OK) {
        myisnt( scalar $info, 0, 'infoCheck: C_GetTokenInfo slotWithNoToken CKR_OK' );
    }
    myis( $obj->C_G

ons[0], $data, $digest), CKR_OK, 'digestCheck: C_Digest' );
    myisnt( $digest, undef, 'digestCheck: C_Digest not undef' );
    myisnt( $digest, '', 'digestCheck: C_Digest not empty string' );
    my

$line.($n?': '.$n:'') );
    }
}

sub myisnt {
    my ($a, $b, $n) = @_;
    my ($package, $filename, $line) = caller;

    unless ($LEAK_TESTING) {
        isnt( $a, $b, $filename.'@'.$line.($n?': '.

ests => 3;

use Crypt::PKCS11;

BEGIN {
    is( Crypt::PKCS11::XS::SvUOK(1), 1, 'SvUOK(1)' );
    isnt( Crypt::PKCS11::XS::SvUOK(-1), 1, 'SvUOK(-1)' );
    is( Crypt::PKCS11::XS::SvUOK('1'), 0, 'SvUOK

$line.($n?': '.$n:'') );
    }
}

sub myisnt {
    my ($a, $b, $n) = @_;
    my ($package, $filename, $line) = caller;

    unless ($LEAK_TESTING) {
        isnt( $a, $b, $filename.'@'.$line.($n?': '.