|
Lines 1377-1388
subtest 'get_savings tests' => sub {
Link Here
|
| 1377 |
AddIssue( $patron->unblessed, $item2->barcode ); |
1377 |
AddIssue( $patron->unblessed, $item2->barcode ); |
| 1378 |
|
1378 |
|
| 1379 |
my $savings = $patron->get_savings; |
1379 |
my $savings = $patron->get_savings; |
| 1380 |
is( $savings, $item1->replacementprice + $item2->replacementprice, "Savings correctly calculated from current issues" ); |
1380 |
is( $savings + 0, $item1->replacementprice + $item2->replacementprice, "Savings correctly calculated from current issues" ); |
| 1381 |
|
1381 |
|
| 1382 |
AddReturn( $item2->barcode, $item2->homebranch ); |
1382 |
AddReturn( $item2->barcode, $item2->homebranch ); |
| 1383 |
|
1383 |
|
| 1384 |
$savings = $patron->get_savings; |
1384 |
$savings = $patron->get_savings; |
| 1385 |
is( $savings, $item1->replacementprice + $item2->replacementprice, "Savings correctly calculated from current and old issues" ); |
1385 |
is( $savings + 0, $item1->replacementprice + $item2->replacementprice, "Savings correctly calculated from current and old issues" ); |
| 1386 |
|
1386 |
|
| 1387 |
$schema->storage->txn_rollback; |
1387 |
$schema->storage->txn_rollback; |
| 1388 |
}; |
1388 |
}; |
| 1389 |
- |
|
|