view release on metacpan or  search on metacpan

t/blitzexecute.t  view on Meta::CPAN

# job status success
{
    my $lwp = _mock_server_response('get', $status_success_json);
    my $job_id = $client->job_id($status->{_id});
    my $response = $client->job_status();
    
    ok(!$response->{error}, 'job_status responds without error');
    ok($response->{ok}, 'no error on success');
    is($response->{_id}, $status->{_id}, 'job id returns correctly');
    is($response->{result}{request}{content}, 'content', 'request content was base64 encoded and decoded');
    is($response->{result}{response}{content}, 'content', 'response content was base64 encoded and decoded');

}

# integer test
{
    my $lwp = _mock_server_response('post', $integer_test_json);
    
    my $response = $client->start_job($integer_test);
    is_deeply($response, $integer_test, 'response and json are identical');
}