view release on metacpan or  search on metacpan

src/KTC_EKEY/t/KTC_EKEY.t  view on Meta::CPAN

# -*-cperl-*-

use strict;
use lib qw(../../inc ../inc);
use blib;

use Test::More;

BEGIN {
    use AFS::FS;
    if (AFS::FS::isafs('./')) { plan tests => 5; }
    else { plan tests => 4; }

    use_ok('AFS::KTC_EKEY');
}

my $dkey = AFS::KTC_EKEY->des_string_to_key('abc');
is(ref($dkey), 'AFS::KTC_EKEY', 'des_string_to_key(abc)');

can_ok('AFS::KTC_EKEY', qw(ReadPassword));
can_ok('AFS::KTC_EKEY', qw(UserReadPassword));

if (! AFS::FS::isafs('./')) { exit; }

use AFS::Cell qw(localcell);
my $skey = AFS::KTC_EKEY->StringToKey('abc', localcell);
is(ref($skey), 'AFS::KTC_EKEY', 'StringToKey(abc,localcell)');