|
Lines 397-416
EOS
Link Here
|
| 397 |
}; |
397 |
}; |
| 398 |
|
398 |
|
| 399 |
subtest 'bad calls' => sub { |
399 |
subtest 'bad calls' => sub { |
| 400 |
plan tests => 2; |
400 |
plan tests => 1; |
| 401 |
AddIssue( $borrower, $barcode1, $today, undef, $yesterday ); |
|
|
| 402 |
my $slip = IssueSlip(); |
401 |
my $slip = IssueSlip(); |
| 403 |
isnt( $slip, undef, 'IssueSlip should return if no param passed FIXME, should return undef' ); |
402 |
is( $slip, undef, 'IssueSlip should return if no valid borrowernumber is passed' ); |
| 404 |
my $empty_slip = <<EOS; |
|
|
| 405 |
Checked out: |
| 406 |
|
| 407 |
|
| 408 |
Overdues: |
| 409 |
|
| 410 |
EOS |
| 411 |
|
| 412 |
$slip = IssueSlip(undef, $borrowernumber+1); |
| 413 |
is( $slip->{content}, $empty_slip, 'IssueSlip should not return an empty slip if the borrowernumber passed in param does not exist. But it is what it does for now (FIXME)' ); |
| 414 |
}; |
403 |
}; |
| 415 |
|
404 |
|
| 416 |
$schema->storage->txn_rollback; |
405 |
$schema->storage->txn_rollback; |
| 417 |
- |
|
|