[catagits/Catalyst-TraitFor-Request-ProxyBase.git] / t / live-test.t

#!/usr/bin/env perl

use strict;
use warnings;
use Test::More tests => 1;

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

use TestApp;

# a live test against TestApp, the test application
use Catalyst::Test 'TestApp';

my ($res, $c) = ctx_request('/');
is($c->res->body, 'http://localhost/');
Commit	Line	Data
1640822e	1	#!/usr/bin/env perl
	2
	3	use strict;
	4	use warnings;
044d8723	5	use Test::More tests => 1;
1640822e	6
	7	# setup library path
	8	use FindBin qw($Bin);
	9	use lib "$Bin/lib";
	10
044d8723	11	use TestApp;
1640822e	12
1640822e	13	# a live test against TestApp, the test application
044d8723	14	use Catalyst::Test 'TestApp';
	15
	16	my ($res, $c) = ctx_request('/');
	17	is($c->res->body, 'http://localhost/');
1640822e	18