Lines 184-190
subtest 'get_balance() tests' => sub {
Link Here
|
184 |
|
184 |
|
185 |
subtest 'add_credit() tests' => sub { |
185 |
subtest 'add_credit() tests' => sub { |
186 |
|
186 |
|
187 |
plan tests => 18; |
187 |
plan tests => 19; |
188 |
|
188 |
|
189 |
$schema->storage->txn_begin; |
189 |
$schema->storage->txn_begin; |
190 |
|
190 |
|
Lines 209-217
subtest 'add_credit() tests' => sub {
Link Here
|
209 |
|
209 |
|
210 |
my $credit = { amount => 100 }; |
210 |
my $credit = { amount => 100 }; |
211 |
|
211 |
|
212 |
my $ret = $t->post_ok( |
212 |
my $ret = |
213 |
"//$userid:$password@/api/v1/patrons/$patron_id/account/credits" => |
213 |
$t->post_ok( "//$userid:$password@/api/v1/patrons/$patron_id/account/credits" => json => $credit ) |
214 |
json => $credit )->status_is(201)->tx->res->json; |
214 |
->status_is(201) |
|
|
215 |
->header_is( |
216 |
'Location' => "/api/v1/patrons/$patron_id/account/credits/" . $t->tx->res->json->{account_line_id}, |
217 |
"REST3.4.1" |
218 |
)->tx->res->json; |
215 |
|
219 |
|
216 |
is_deeply( |
220 |
is_deeply( |
217 |
$ret, |
221 |
$ret, |
Lines 472-478
subtest 'list_debits() test' => sub {
Link Here
|
472 |
|
476 |
|
473 |
subtest 'add_debit() tests' => sub { |
477 |
subtest 'add_debit() tests' => sub { |
474 |
|
478 |
|
475 |
plan tests => 20; |
479 |
plan tests => 21; |
476 |
|
480 |
|
477 |
$schema->storage->txn_begin; |
481 |
$schema->storage->txn_begin; |
478 |
|
482 |
|
Lines 546-552
subtest 'add_debit() tests' => sub {
Link Here
|
546 |
|
550 |
|
547 |
my $account_line_id = $ret->{account_line_id}; |
551 |
my $account_line_id = $ret->{account_line_id}; |
548 |
|
552 |
|
549 |
$t->post_ok( "//$userid:$password@/api/v1/patrons/$patron_id/account/debits" => json => $debit )->status_is(201); |
553 |
$t->post_ok( "//$userid:$password@/api/v1/patrons/$patron_id/account/debits" => json => $debit ) |
|
|
554 |
->status_is(201) |
555 |
->header_is( |
556 |
'Location' => "/api/v1/patrons/$patron_id/account/debits/" . $t->tx->res->json->{account_line_id}, |
557 |
"REST3.4.1" |
558 |
); |
550 |
|
559 |
|
551 |
is( |
560 |
is( |
552 |
$account->outstanding_debits->total_outstanding, |
561 |
$account->outstanding_debits->total_outstanding, |
553 |
- |
|
|