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 => 14; |
21 |
use Test::Warn; |
21 |
use Test::Warn; |
22 |
|
22 |
|
23 |
use C4::Context; |
23 |
use C4::Context; |
Lines 49-57
is( $object->in_storage, 1, "Object is now stored" );
Link Here
|
49 |
|
49 |
|
50 |
my $borrowernumber = $object->borrowernumber; |
50 |
my $borrowernumber = $object->borrowernumber; |
51 |
|
51 |
|
52 |
my $borrower = Koha::Database->new()->schema()->resultset('Borrower')->find( $borrowernumber ); |
52 |
#test find as class method on the stored borrower |
|
|
53 |
my $borrower = Koha::Borrower->find( $borrowernumber ); |
53 |
is( $borrower->surname(), "Test Surname", "Object found in database" ); |
54 |
is( $borrower->surname(), "Test Surname", "Object found in database" ); |
54 |
|
55 |
|
|
|
56 |
#test find as an object method too |
57 |
is( ref $borrower->find( $borrowernumber ), 'Koha::Borrower', |
58 |
'Find as object method works too'); |
59 |
|
55 |
is( $object->is_changed(), 0, "Object is unchanged" ); |
60 |
is( $object->is_changed(), 0, "Object is unchanged" ); |
56 |
$object->surname("Test Surname"); |
61 |
$object->surname("Test Surname"); |
57 |
is( $object->is_changed(), 0, "Object is still unchanged" ); |
62 |
is( $object->is_changed(), 0, "Object is still unchanged" ); |
Lines 67-73
$object->store();
Link Here
|
67 |
is( $object->is_changed(), 0, "Object no longer marked as changed after being stored" ); |
72 |
is( $object->is_changed(), 0, "Object no longer marked as changed after being stored" ); |
68 |
|
73 |
|
69 |
$object->delete(); |
74 |
$object->delete(); |
70 |
$borrower = Koha::Database->new()->schema()->resultset('Borrower')->find( $borrowernumber ); |
75 |
$borrower = Koha::Borrower->find( $borrowernumber ); |
71 |
ok( ! $borrower, "Object no longer found in database" ); |
76 |
ok( ! $borrower, "Object no longer found in database" ); |
72 |
is( $object->in_storage, 0, "Object is not in storage" ); |
77 |
is( $object->in_storage, 0, "Object is not in storage" ); |
73 |
|
78 |
|
74 |
- |
|
|