Lines 94-104
subtest 'list() tests' => sub {
Link Here
|
94 |
} |
94 |
} |
95 |
); |
95 |
); |
96 |
|
96 |
|
|
|
97 |
# The api response is always augmented with the id_prefix |
98 |
my $response = $illrequest->unblessed; |
99 |
$response->{id_prefix} = $illrequest->id_prefix; |
100 |
|
97 |
# One illrequest created, should get returned |
101 |
# One illrequest created, should get returned |
98 |
$tx = $t->ua->build_tx( GET => '/api/v1/illrequests' ); |
102 |
$tx = $t->ua->build_tx( GET => '/api/v1/illrequests' ); |
99 |
$tx->req->cookies( { name => 'CGISESSID', value => $session_id } ); |
103 |
$tx->req->cookies( { name => 'CGISESSID', value => $session_id } ); |
100 |
$tx->req->env( { REMOTE_ADDR => $remote_address } ); |
104 |
$tx->req->env( { REMOTE_ADDR => $remote_address } ); |
101 |
$t->request_ok($tx)->status_is(200)->json_is( [ $illrequest->unblessed ] ); |
105 |
$t->request_ok($tx)->status_is(200)->json_is( [$response] ); |
102 |
|
106 |
|
103 |
# One illrequest created, returned with augmented data |
107 |
# One illrequest created, returned with augmented data |
104 |
$tx = $t->ua->build_tx( GET => |
108 |
$tx = $t->ua->build_tx( GET => |
Lines 123-134
subtest 'list() tests' => sub {
Link Here
|
123 |
} |
127 |
} |
124 |
); |
128 |
); |
125 |
|
129 |
|
|
|
130 |
# The api response is always augmented with the id_prefix |
131 |
my $response2 = $illrequest2->unblessed; |
132 |
$response2->{id_prefix} = $illrequest2->id_prefix; |
133 |
|
126 |
# Two illrequest created, should get returned |
134 |
# Two illrequest created, should get returned |
127 |
$tx = $t->ua->build_tx( GET => '/api/v1/illrequests' ); |
135 |
$tx = $t->ua->build_tx( GET => '/api/v1/illrequests' ); |
128 |
$tx->req->cookies( { name => 'CGISESSID', value => $session_id } ); |
136 |
$tx->req->cookies( { name => 'CGISESSID', value => $session_id } ); |
129 |
$tx->req->env( { REMOTE_ADDR => $remote_address } ); |
137 |
$tx->req->env( { REMOTE_ADDR => $remote_address } ); |
130 |
$t->request_ok($tx)->status_is(200) |
138 |
$t->request_ok($tx)->status_is(200) |
131 |
->json_is( [ $illrequest->unblessed, $illrequest2->unblessed ] ); |
139 |
->json_is( [ $response, $response2 ] ); |
132 |
|
140 |
|
133 |
# Warn on unsupported query parameter |
141 |
# Warn on unsupported query parameter |
134 |
$tx = $t->ua->build_tx( GET => '/api/v1/illrequests?request_blah=blah' ); |
142 |
$tx = $t->ua->build_tx( GET => '/api/v1/illrequests?request_blah=blah' ); |
135 |
- |
|
|