View | Details | Raw Unified | Return to bug 21835
Collapse All | Expand All

(-)a/t/db_dependent/api/v1/illrequests.t (-3 / +10 lines)
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
- 

Return to bug 21835