Lines 42-48
is( $object2->surname(), 'Test Borrower Surname 2', "Accessor returns correct va
Link Here
|
42 |
|
42 |
|
43 |
my $ret; |
43 |
my $ret; |
44 |
$ret = $object2->set({ surname => "Test Borrower Surname 3", firstname => "Test Firstname" }); |
44 |
$ret = $object2->set({ surname => "Test Borrower Surname 3", firstname => "Test Firstname" }); |
45 |
is( $ret, 1, "Set returns 1 on success" ); |
45 |
ok( ref($ret) eq 'Koha::Borrower', "Set returns object on success" ); |
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 |
- |
|
|