view release on metacpan or  search on metacpan

t/01-crypt-password.t  view on Meta::CPAN

        my $p;
        eval { $p = password('a', 'bbbbbbbb') };
        is $@, "", "salt=8 no error";
        is $p, '$_bbbbbbbb$DJEHexiq9NI', "salt=8 crypt";
        $@ = "";
    }
};
$special->{modular} = sub {
    diag "modular special";
    my $c = password("hello0");
    like $c, qr/^\$5\$(........)\$[a-zA-Z0-9\.\/]{43}$/, "crypted";
    my $c2 = password("hello0");
    like $c2, qr/^\$5\$(........)\$[a-zA-Z0-9\.\/]{43}$/, "another crypted";
    isnt $c, $c2, "generated different salts";
    $DB::single = 1;
    ok(check_password($c, "hello0"), "check passed");
    ok(check_password($c2, "hello0"), "check passed");
    ok(!check_password($c, "helu"), "check failed");

    diag "modular special argumentative";
    my $c3 = password("password", "salt");
    like $c3, qr/^\$5\$salt\$.{43}$/, "Default algorithm, supplied salt";
    my $c4 = password("password", "", "md5");