-#!perl
-
use strict;
use warnings;
ok( my $response = request('http://localhost/engine/response/print/' . $action ),
'Request' );
ok( $response->is_success, "Response $action successful 2xx" );
-
+
is( $response->content, $expected->{$action}, "Content $action OK" );
}