From e99e05e8d75ba26ebb556746ea8dd4e38b85aa96 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Fri, 21 Oct 2016 18:15:50 +0000 Subject: [PATCH] Bug 17425 [QA Followup] - Remove superfluous tests Signed-off-by: Kyle M Hall --- t/Patron.t | 18 +----------------- 1 file changed, 1 insertion(+), 17 deletions(-) diff --git a/t/Patron.t b/t/Patron.t index e3a2dd45d8..c32de10a0e 100755 --- a/t/Patron.t +++ b/t/Patron.t @@ -17,7 +17,7 @@ use Modern::Perl; -use Test::More tests => 18; +use Test::More tests => 11; use Test::Warn; use t::lib::Mocks; @@ -43,22 +43,6 @@ ok( ref($ret) eq 'Koha::Patron', "Set returns object on success" ); is( $object2->surname(), "Test Patron Surname 3", "Set sets first field correctly" ); is( $object2->firstname(), "Test Firstname", "Set sets second field correctly" ); -warning_is { $ret = $object->set({ surname => "Test Patron Surname 4", bork => "bork" }) } - "No property bork!", - "Expected 'No property bork!' caught"; -is( $object2->surname(), "Test Patron Surname 3", "Bad Set does not set field" ); -is( $ret, 0, "Set returns 0 when passed a bad property" ); - -warning_is { $ret = $object->bork() } - "The method bork is not covered by tests or does not exist!", - "Expected 'The method bork is not covered by tests or does not exist!' caught for getter."; -ok( ! defined $ret, 'Bad getter returns undef' ); - -warning_is { $ret = $object->bork('bork') } - "The method bork is not covered by tests or does not exist!", - "Expected 'The method bork is not covered by tests or does not exist!' caught for setter."; -ok( ! defined $ret, 'Bad setter returns undef' ); - my $patron = Koha::Patron->new( { borrowernumber => '12345', -- 2.11.0