From 5ee7824eb667b4d53515ebac442c53c9a94aed41 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 3 Apr 2011 19:14:01 +0200
Subject: t/20-app-raps2-password.t: Better Test::Exception syntax

---
 t/20-app-raps2-password.t | 64 +++++++++++++++++++++++++++++++++++------------
 1 file changed, 48 insertions(+), 16 deletions(-)

(limited to 't')

diff --git a/t/20-app-raps2-password.t b/t/20-app-raps2-password.t
index 6a5f080..67bf29a 100644
--- a/t/20-app-raps2-password.t
+++ b/t/20-app-raps2-password.t
@@ -12,24 +12,51 @@ my $pass = 'something';
 
 use_ok('App::Raps2::Password');
 
-throws_ok { App::Raps2::Password->new() } qr{incorrect salt length},
-	'new() missing salt and passphrase';
+throws_ok(
+	sub {
+		App::Raps2::Password->new();
+	},
+	qr{incorrect salt length},
+	'new() missing salt and passphrase'
+);
 
-throws_ok { App::Raps2::Password->new(salt => $salt) } qr{no passphrase given},
-	'new() missing passphrase';
+throws_ok(
+	sub {
+		App::Raps2::Password->new(salt => $salt);
+	},
+	qr{no passphrase given},
+	'new() missing passphrase'
+);
 
-throws_ok { App::Raps2::Password->new(passphrase => $pass) } qr{incorrect salt length},
-	'new() missing salt';
+throws_ok(
+	sub {
+		App::Raps2::Password->new(passphrase => $pass);
+	},
+	qr{incorrect salt length},
+	'new() missing salt'
+);
 
-throws_ok { App::Raps2::Password->new(
-		passphrase => $pass,
-		salt => 'abcdefghijklmno',
-	) } qr{incorrect salt length}, 'new() salt one too short';
+throws_ok(
+	sub {
+		App::Raps2::Password->new(
+			passphrase => $pass,
+			salt => 'abcdefghijklmno',
+		);
+	},
+	qr{incorrect salt length},
+	'new() salt one too short'
+);
 
-throws_ok { App::Raps2::Password->new(
-		passphrase => $pass,
-		salt => $salt . 'z',
-	) } qr{incorrect salt length}, 'new() salt one too long';
+throws_ok(
+	sub {
+		App::Raps2::Password->new(
+			passphrase => $pass,
+			salt => $salt . 'z',
+		);
+	},
+	qr{incorrect salt length},
+	'new() salt one too long'
+);
 
 $pw = App::Raps2::Password->new(
 	passphrase => $pass,
@@ -52,7 +79,12 @@ is($pw->decrypt($pw->encrypt('foo')), 'foo', 'encrypt->decrypt okay');
 
 ok($pw->verify('3lJRlaRuOGWv/z3g1DAOlcH.u9vS8Wm'), 'verify: verifies correct hash');
 
-throws_ok { $pw->verify('3lJRlaRuOGWv/z3g1DAOlcH.u9vS8WM') } qr{Passwords did not match},
-'verify: does not verify invalid hash';
+throws_ok(
+	sub {
+		$pw->verify('3lJRlaRuOGWv/z3g1DAOlcH.u9vS8WM');
+	},
+	qr{Passwords did not match},
+	'verify: does not verify invalid hash'
+);
 
 ok($pw->verify($pw->crypt('truth')), 'crypt->verify okay')
-- 
cgit v1.2.3