Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 20; |
20 |
use Test::More tests => 21; |
21 |
use Test::Mojo; |
21 |
use Test::Mojo; |
22 |
use t::lib::TestBuilder; |
22 |
use t::lib::TestBuilder; |
23 |
|
23 |
|
Lines 52-58
my $borrower = $builder->build({
Link Here
|
52 |
branchcode => $branchcode, |
52 |
branchcode => $branchcode, |
53 |
categorycode => $categorycode, |
53 |
categorycode => $categorycode, |
54 |
flags => 0, |
54 |
flags => 0, |
55 |
guarantorid => $guarantor->{borrowernumber}, |
55 |
lost => 1, |
|
|
56 |
guarantorid => $guarantor->{borrowernumber}, |
56 |
} |
57 |
} |
57 |
}); |
58 |
}); |
58 |
|
59 |
|
Lines 127-132
$tx->req->cookies({name => 'CGISESSID', value => $session->id});
Link Here
|
127 |
$t->request_ok($tx) |
128 |
$t->request_ok($tx) |
128 |
->status_is(200) |
129 |
->status_is(200) |
129 |
->json_is('/borrowernumber' => $borrower->{ borrowernumber }) |
130 |
->json_is('/borrowernumber' => $borrower->{ borrowernumber }) |
130 |
->json_is('/surname' => $borrower->{ surname }); |
131 |
->json_is('/surname' => $borrower->{ surname }) |
|
|
132 |
->json_is('/lost' => 1 ); |
131 |
|
133 |
|
132 |
$dbh->rollback; |
134 |
$dbh->rollback; |
133 |
- |
|
|