[catagits/catbook-code.git] / t / controller_Translate.t

use strict;
use warnings;
use Test::More qw/no_plan/;

BEGIN { use_ok 'Catalyst::Test', 'LolCatalyst::Lite' }

use HTTP::Request::Common;

my ($request, $response);

$request = POST(
        'http://localhost/translate',
        'Content-Type' => 'form-data',
        'Content'      => [
            'lol' => 'Can i have a cheese burger?',
        ]);

ok( $response = request($request), 'Request');
ok( $response->is_success, 'Response Successful 2xx' );
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");
Commit	Line	Data
07c4c36a	1	use strict;
	2	use warnings;
	3	use Test::More qw/no_plan/;
	4
	5	BEGIN { use_ok 'Catalyst::Test', 'LolCatalyst::Lite' }
	6
	7	use HTTP::Request::Common;
	8
	9	my ($request, $response);
	10
	11	$request = POST(
	12	'http://localhost/translate',
	13	'Content-Type' => 'form-data',
	14	'Content' => [
	15	'lol' => 'Can i have a cheese burger?',
	16	]);
	17
	18	ok( $response = request($request), 'Request');
	19	ok( $response->is_success, 'Response Successful 2xx' );
	20	is( $response->content_type, 'text/html', 'Response Content-Type' );
	21	like( $response->content, qr/CHEEZ/, "contains translated string");
	22
9671ec67	23	ok(
	24	$response = request(GET 'http://localhost/translate/1/to/LOLCAT'),
	25	'Request for specific translation type'
	26	);
	27
	28	ok( $response->is_success, 'Response Successful 2xx' );
	29
	30	like( $response->content, qr/CHEEZ/, "contains translated string");