view release on metacpan or  search on metacpan

t/pbkdf2.t  view on Meta::CPAN

#--------------------------------------------------------------------------#
# custom test function
#--------------------------------------------------------------------------#

sub is_hex {
    my ( $got, $exp, $label ) = @_;
    local $Test::Builder::Level = $Test::Builder::Level + 1;
    is( unpack( "H*", $got ), unpack( "H*", $exp ), $label );
}

sub exception(&) {
    my $code = shift;
    eval { $code->() };
    return $@;
}

#--------------------------------------------------------------------------#
# Test cases:
#--------------------------------------------------------------------------#

my @cases = (