1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
use Test::More tests => 3;
use strict;
use warnings;
use Dancer2;
use Dancer2::Plugin::Passphrase;
my $secret = "Super Secret Squirrel";
my $two_a = '{CRYPT}$2a$04$MjkMhQxasFQod1qq56DXCOvWu6YTWk9X.EZGnmSSIbbtyEBIAixbS';
my $two_x = '{CRYPT}$2x$04$MjkMhQxasFQod1qq56DXCOvWu6YTWk9X.EZGnmSSIbbtyEBIAixbS';
my $two_y = '{CRYPT}$2y$04$MjkMhQxasFQod1qq56DXCOvWu6YTWk9X.EZGnmSSIbbtyEBIAixbS';
ok(passphrase($secret)->matches($two_a), 'Matches $2a$ (ambiguous bcrypt)');
ok(passphrase($secret)->matches($two_x), 'Matches $2x$ (broken bcrypt)');
ok(passphrase($secret)->matches($two_a), 'Matches $2y$ (new standard bcrypt)');
|
