-#!perl
-
use strict;
use warnings;
my $expected = {
one => "foo",
two => "foobar",
- three => "foo,bar,baz",
+ three => "foo,bar,baz:",
};
for my $action ( sort keys %{$expected} ) {
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" );
}