|
Lines 395-401
subtest "More Koha::Account::pay tests" => sub {
Link Here
|
| 395 |
is( $stat->type, 'payment', "Correct statistic type" ); |
395 |
is( $stat->type, 'payment', "Correct statistic type" ); |
| 396 |
is( $stat->branch, $branch, "Correct branch logged to statistics" ); |
396 |
is( $stat->branch, $branch, "Correct branch logged to statistics" ); |
| 397 |
is( $stat->borrowernumber, $borrowernumber, "Correct borrowernumber logged to statistics" ); |
397 |
is( $stat->borrowernumber, $borrowernumber, "Correct borrowernumber logged to statistics" ); |
| 398 |
is( $stat->value, "$amount" . "\.0000", "Correct amount logged to statistics" ); |
398 |
is( $stat->value+0, $amount, "Correct amount logged to statistics" ); |
| 399 |
} |
399 |
} |
| 400 |
}; |
400 |
}; |
| 401 |
|
401 |
|
|
Lines 449-455
subtest "Even more Koha::Account::pay tests" => sub {
Link Here
|
| 449 |
is( $stat->type, 'payment', "Correct statistic type" ); |
449 |
is( $stat->type, 'payment', "Correct statistic type" ); |
| 450 |
is( $stat->branch, $branch, "Correct branch logged to statistics" ); |
450 |
is( $stat->branch, $branch, "Correct branch logged to statistics" ); |
| 451 |
is( $stat->borrowernumber, $borrowernumber, "Correct borrowernumber logged to statistics" ); |
451 |
is( $stat->borrowernumber, $borrowernumber, "Correct borrowernumber logged to statistics" ); |
| 452 |
is( $stat->value, "$partialamount" . "\.0000", "Correct amount logged to statistics" ); |
452 |
is( $stat->value+0, $partialamount, "Correct amount logged to statistics" ); |
| 453 |
} |
453 |
} |
| 454 |
}; |
454 |
}; |
| 455 |
|
455 |
|
| 456 |
- |
|
|