SYNOPSIS

use Util qw(:server :test :ua);

use_server;

Try to use the test server package. If it fails, the test plan is set to skip_all.

$server = start_server('app.psgi');

Start a test server.

send_env(\%env);

Encode and send a PSGI environment over STDOUT, to be received by "recv_env".

my $env = recv_env($fh);

Receive and decode a PSGI environment over a filehandle, sent by "send_env".

is_response_content($resp, $body, $test_name);
is_response_content($resp, $body);
# etc.

Test a response for various fields.

response_protocol_ok($resp);

Test that a response protocol is well-formed.

@user_agents = user_agents;

Get a list of user agents available for testing. Shortcut for @Util::USER_AGENTS.

test_user_agent($ua_type, \&test);

Run a subtest against one user agent.

test_all_user_agents { ... };

Run the same subtest against all user agents returned by "user_agents".