view release on metacpan or  search on metacpan

t/03-live-test-domain.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;
use Test::More tests => 3;
use HTTP::Request::Common;

# setup library path
use FindBin qw($Bin);
use lib "$Bin/lib";

use Catalyst::Test 'TestApp';
my ($res, $c);

ok(request('/')->is_success, 'Get /');

($res, $c) = ctx_request(GET 'http://localhost/get_lang', 'Host'=>'en.test.vhost' );
like($c->res->body, qr/en/, 'Check for language when using language domain en');

($res, $c) = ctx_request(GET 'http://localhost/get_lang', 'Host'=>'de.test.vhost' );
like($c->res->body, qr/de/, 'Check for language when using language domain de');