View | Details | Raw Unified | Return to bug 13928
Collapse All | Expand All

(-)a/t/Borrower.t (-5 / +6 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 13;
20
use Test::More tests => 16;
21
use Test::Warn;
21
use Test::Warn;
22
22
23
use Koha::Database;
23
use Koha::Database;
Lines 46-56 ok( ref($ret) eq 'Koha::Borrower', "Set returns object on success" ); Link Here
46
is( $object2->surname(), "Test Borrower Surname 3", "Set sets first field correctly" );
46
is( $object2->surname(), "Test Borrower Surname 3", "Set sets first field correctly" );
47
is( $object2->firstname(), "Test Firstname", "Set sets second field correctly" );
47
is( $object2->firstname(), "Test Firstname", "Set sets second field correctly" );
48
48
49
$ret = $object->set({ surname => "Test Borrower Surname 4", bork => "bork" });
49
warning_is { $ret = $object->set({ surname => "Test Borrower Surname 4", bork => "bork" }) } "No property bork!", "Expected 'No property bork!' caught";
50
is( $object2->surname(), "Test Borrower Surname 3", "Bad Set does not set field" );
50
is( $object2->surname(), "Test Borrower Surname 3", "Bad Set does not set field" );
51
is( $ret, 0, "Set returns 0 when passed a bad property" );
51
is( $ret, 0, "Set returns 0 when passed a bad property" );
52
52
53
ok( ! defined $object->bork(), 'Bad getter returns undef' );
53
warning_is { $ret = $object->bork() } 'No method bork!', "Expected 'No method bork!' caught for getter.";
54
ok( ! defined $object->bork('bork'), 'Bad setter returns undef' );
54
ok( ! defined $ret, 'Bad getter returns undef' );
55
warning_is { $ret = $object->bork('bork') } 'No method bork!', "Expected 'No method bork!' caught for setter.";
56
ok( ! defined $ret, 'Bad setter returns undef' );
55
57
56
1;
58
1;
57
- 

Return to bug 13928