view release on metacpan or  search on metacpan

t/Crypt-OpenSSL-FASTPBKDF2.t  view on Meta::CPAN

        ['password', 'salt', 2, 'e1d9c16aa681708a45f5c7c4e215ceb66e011a2e9f0040713f18aefdb866d53c'],
        ['password', 'salt', 4096, 'd197b1b33db0143e018b12f3d1d1479e6cdebdcc97c5c0f87f6902e072f457b5'],
        ['passwordPASSWORDpassword', 'saltSALTsaltSALTsaltSALTsaltSALTsalt', 1, '6e23f27638084b0f7ea1734e0d9841f55dd29ea60a834466f3396bac801fac1eeb63802f03a0b4acd7603e3699c8b74437be83ff01ad7f55dac1ef60f4d56480c35ee68fd52c6936'],
    ],
};

# This must match the number of main tests (subtests each count as main test)
my $number_of_tests = 1 + keys %{HMAC_SUBS()};

# Test against expected hmac_data
sub data_test($) {
    my $hmac = shift;
    my $test_sub = HMAC_SUBS()->{$hmac};
    my $test_data = HMAC_DATA()->{$hmac};

    subtest "HMAC $hmac"=>sub {
        plan tests => 1 + scalar @$test_data;
        my @buffer;

        # Data Test
        foreach my $t (@$test_data) {