[catagits/Catalyst-Devel.git] / share / t / 01app.t.tt

[% startperl %]
use strict;
use warnings;
use Test::More tests => 2;

BEGIN { use_ok 'Catalyst::Test', '[% name %]' }
my $req = request('/');
ok( $req->is_success, "Request succeeds");
Commit	Line	Data
239b5fc0	1	[% startperl %]
	2	use strict;
	3	use warnings;
	4	use Test::More tests => 2;
	5
	6	BEGIN { use_ok 'Catalyst::Test', '[% name %]' }
d7805d62	7	my $req = request('/');
d7805d62	8	ok( $req->is_success, "Request succeeds");