t/20-app-raps2-password.t: Tests for ->salt()

1 files changed, 52 insertions, 2 deletions

diff --git a/t/20-app-raps2-password.t b/t/20-app-raps2-password.t
index 67bf29a..56a6f4d 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 => 13;
+use Test::More tests => 19;
 use Test::Exception;
 
 my $pw;
@@ -30,6 +30,17 @@ throws_ok(
 
 throws_ok(
 	sub {
+		App::Raps2::Password->new(
+			salt => $salt,
+			passphrase => q{}
+		);
+	},
+	qr{no passphrase given},
+	'new() missing passphrase'
+);
+
+throws_ok(
+	sub {
 		App::Raps2::Password->new(passphrase => $pass);
 	},
 	qr{incorrect salt length},
@@ -87,4 +98,43 @@ throws_ok(
 	'verify: does not verify invalid hash'
 );
 
-ok($pw->verify($pw->crypt('truth')), 'crypt->verify okay')
+ok($pw->verify($pw->crypt('truth')), 'crypt->verify okay');
+
+throws_ok(
+	sub {
+		$pw->salt();
+	},
+	qr{incorrect salt length},
+	'salt: No argument',
+);
+
+throws_ok(
+	sub {
+		$pw->salt('');
+	},
+	qr{incorrect salt length},
+	'salt: Empty argument',
+);
+
+throws_ok(
+	sub {
+		$pw->salt('abcdefghijklmno');
+	},
+	qr{incorrect salt length},
+	'salt: One too short',
+);
+
+throws_ok(
+	sub {
+		$pw->salt($salt . 'z');
+	},
+	qr{incorrect salt length},
+	'salt: One too long',
+);
+
+lives_ok(
+	sub {
+		$pw->salt($salt);
+	},
+	'salt: Correct length',
+);