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 |
- |
|
|