[catagits/Catalyst-View-TT.git] / t / 05appconfig.t

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

use FindBin;
use lib "$FindBin::Bin/lib";

use_ok('Catalyst::Test', 'TestApp');

my $view = 'Appconfig';

my $response;
ok(($response = request("/test?view=$view"))->is_success, 'request ok');
is($response->content, TestApp->config->{default_message}, 'message ok');

my $message = scalar localtime;
ok(($response = request("/test?view=$view&message=$message"))->is_success, 'request with message ok');
is($response->content, $message, 'message ok')
Commit	Line	Data
07571b2f	1	use strict;
	2	use warnings;
	3	use Test::More tests => 5;
	4
	5	use FindBin;
	6	use lib "$FindBin::Bin/lib";
	7
	8	use_ok('Catalyst::Test', 'TestApp');
	9
	10	my $view = 'Appconfig';
	11
	12	my $response;
	13	ok(($response = request("/test?view=$view"))->is_success, 'request ok');
	14	is($response->content, TestApp->config->{default_message}, 'message ok');
	15
	16	my $message = scalar localtime;
	17	ok(($response = request("/test?view=$view&message=$message"))->is_success, 'request with message ok');
	18	is($response->content, $message, 'message ok')