5 use lib "$FindBin::Bin/../lib";
7 use Test::More tests => 9;
8 use Catalyst::Test 'TestApp';
13 three => "foo,bar,baz:",
16 for my $action ( sort keys %{$expected} ) {
17 ok( my $response = request('http://localhost/engine/response/print/' . $action ),
19 ok( $response->is_success, "Response $action successful 2xx" );
21 is( $response->content, $expected->{$action}, "Content $action OK" );