|
Lines 128-145
subtest 'account_lines' => sub {
Link Here
|
| 128 |
} |
128 |
} |
| 129 |
)->store(); |
129 |
)->store(); |
| 130 |
|
130 |
|
| 131 |
my $accountlines = $retrieved_checkout_1->account_lines; |
131 |
my $account_lines = $retrieved_checkout_1->account_lines; |
| 132 |
is( ref($accountlines), 'Koha::Account::Lines', |
132 |
is( ref($account_lines), 'Koha::Account::Lines', |
| 133 |
'Koha::Checkout->accountlines should return a Koha::Item' ); |
133 |
'Koha::Checkout->account_lines should return a Koha::Account::Lines' ); |
| 134 |
|
134 |
|
| 135 |
my $line = $accountlines->next; |
135 |
my $line = $account_lines->next; |
| 136 |
is( ref($line), 'Koha::Account::Line', |
136 |
is( ref($line), 'Koha::Account::Line', |
| 137 |
'next returns a Koha::Account::Line' ); |
137 |
'next returns a Koha::Account::Line' ); |
| 138 |
|
138 |
|
| 139 |
is( |
139 |
is( |
| 140 |
$accountline->id, |
140 |
$accountline->id, |
| 141 |
$line->id, |
141 |
$line->id, |
| 142 |
'Koha::Checkout->accountlines should return the correct accountlines' |
142 |
'Koha::Checkout->account_lines should return the correct account_lines' |
| 143 |
); |
143 |
); |
| 144 |
}; |
144 |
}; |
| 145 |
|
145 |
|
| 146 |
- |
|
|