|
Lines 180-186
subtest 'get() test' => sub {
Link Here
|
| 180 |
|
180 |
|
| 181 |
subtest 'add() tests' => sub { |
181 |
subtest 'add() tests' => sub { |
| 182 |
|
182 |
|
| 183 |
plan tests => 15; |
183 |
plan tests => 16; |
| 184 |
|
184 |
|
| 185 |
$schema->storage->txn_begin; |
185 |
$schema->storage->txn_begin; |
| 186 |
|
186 |
|
|
Lines 223-228
subtest 'add() tests' => sub {
Link Here
|
| 223 |
$tx->req->env( { REMOTE_ADDR => $remote_address } ); |
223 |
$tx->req->env( { REMOTE_ADDR => $remote_address } ); |
| 224 |
my $vendor_id = $t->request_ok($tx) |
224 |
my $vendor_id = $t->request_ok($tx) |
| 225 |
->status_is(200) |
225 |
->status_is(200) |
|
|
226 |
->header_like( Location => qr|^\/api\/v1\/acquisitions\/vendors/\d*|, 'SWAGGER3.4.1') |
| 226 |
->json_is( '/name' => $vendor->{name} ) |
227 |
->json_is( '/name' => $vendor->{name} ) |
| 227 |
->json_is( '/address1' => $vendor->{address1} )->tx->res->json('/id') |
228 |
->json_is( '/address1' => $vendor->{address1} )->tx->res->json('/id') |
| 228 |
; # read the response vendor id for later use |
229 |
; # read the response vendor id for later use |
| 229 |
- |
|
|