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