diff options
Diffstat (limited to 't/20-app-raps2-password.t')
| -rw-r--r-- | t/20-app-raps2-password.t | 26 |
1 files changed, 2 insertions, 24 deletions
diff --git a/t/20-app-raps2-password.t b/t/20-app-raps2-password.t index ae4f267..5faa7e9 100644 --- a/t/20-app-raps2-password.t +++ b/t/20-app-raps2-password.t @@ -3,7 +3,7 @@ use strict; use warnings; use 5.010; -use Test::More tests => 19; +use Test::More tests => 17; use Test::Fatal; my $pw; @@ -16,14 +16,6 @@ like( exception { App::Raps2::Password->new(); }, - qr{incorrect salt length}, - 'new() missing salt and passphrase' -); - -like( - exception { - App::Raps2::Password->new(salt => $salt); - }, qr{no passphrase given}, 'new() missing passphrase' ); @@ -41,14 +33,6 @@ like( like( exception { - App::Raps2::Password->new(passphrase => $pass); - }, - qr{incorrect salt length}, - 'new() missing salt' -); - -like( - exception { App::Raps2::Password->new( passphrase => $pass, salt => 'abcdefghijklmno', @@ -100,13 +84,7 @@ like( ok($pw->verify($pw->crypt('truth')), 'crypt->verify okay'); -like( - exception { - $pw->salt(); - }, - qr{incorrect salt length}, - 'salt: No argument', -); +is($pw->salt(), $salt, 'salt() returns current salt'); like( exception { |