#!perl
use strict;
use warnings;

use Test::More;

use constant TEST_PASSWORDS => 10;

BEGIN {
  plan tests => 2 * TEST_PASSWORDS + 1; # + use_ok
  use_ok 'Crypt::PBKDF2';
}

for my $encoding (qw(ldap crypt)) {
  my $pbkdf2 = Crypt::PBKDF2->new(
    hash_class => 'HMACSHA2',
    hash_args  => { sha_size => 512 },
    iterations => 100,
    salt_len   => 32,
    encoding   => $encoding,
  );

  for my $i (1 .. TEST_PASSWORDS) {
    my $password = join "", map ["A".."Z","a".."z","0".."9"]->[rand 62], 1..8;
    my $hash = $pbkdf2->generate($password);
    ok $pbkdf2->validate($hash, $password), "Validate password $i: $password ($encoding)";
  }
}