);
}
+sub translate_to :Chained('object') :PathPart('to') :Args(1) {
+ my ($self, $c, $to) = @_;
+ my $object = $c->stash->{object};
+ $c->stash(
+ result => $object->translated_to($to)
+ );
+ $c->stash(template => 'translate/view.tt');
+}
+
1;
is( $response->content_type, 'text/html', 'Response Content-Type' );
like( $response->content, qr/CHEEZ/, "contains translated string");
+ok(
+ $response = request(GET 'http://localhost/translate/1/to/LOLCAT'),
+ 'Request for specific translation type'
+);
+
+ok( $response->is_success, 'Response Successful 2xx' );
+
+like( $response->content, qr/CHEEZ/, "contains translated string");