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

(-)a/t/Borrower.t (-2 / +1 lines)
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( $ret =~ /^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
- 

Return to bug 13019