From 6598793a31efb2a211f67638d575907789925b87 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Thu, 16 Aug 2018 06:54:53 -0300 Subject: [PATCH] Bug 21233: Unit tests This patch adds tests for the required password-related exceptions. The tests verify the stringified version of the exceptions. To test: - Apply this patch - Run: $ kshell k$ prove t/Koha/Exceptions.t => FAIL: Exceptions not implemented, tests fail! Signed-off-by: Tomas Cohen Arazi Signed-off-by: Josef Moravec --- t/Koha/Exceptions.t | 22 +++++++++++++++++++++- 1 file changed, 21 insertions(+), 1 deletion(-) diff --git a/t/Koha/Exceptions.t b/t/Koha/Exceptions.t index c306d31..7ecc115 100644 --- a/t/Koha/Exceptions.t +++ b/t/Koha/Exceptions.t @@ -17,7 +17,7 @@ use Modern::Perl; -use Test::More tests => 1; +use Test::More tests => 2; use Test::Exception; subtest 'Koha::Exceptions::Object::FKConstraint tests' => sub { @@ -41,3 +41,23 @@ subtest 'Koha::Exceptions::Object::FKConstraint tests' => sub { is( "$@", 'Manual message exception', 'Exception not stringified if manually passed' ); }; +subtest 'Koha::Exceptions::Password tests' => sub { + + plan tests => 5; + + use_ok('Koha::Exceptions::Password'); + + throws_ok + { Koha::Exceptions::Password::TooShort->throw( length => 4, min_length => 5 ); } + 'Koha::Exceptions::Password::TooShort', + 'Exception is thrown :-D'; + + # stringify the exception + is( "$@", 'Password length (4) is shorter than required (5)', 'Exception stringified correctly' ); + + throws_ok + { Koha::Exceptions::Password::TooShort->throw( "Manual message exception" ) } + 'Koha::Exceptions::Password::TooShort', + 'Exception is thrown :-D'; + is( "$@", 'Manual message exception', 'Exception not stringified if manually passed' ); +}; -- 2.1.4