[catagits/Gitalist.git] / t / 01app.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use FindBin qw/$Bin/;

BEGIN {
    $ENV{GITALIST_CONFIG} = $Bin;
    use_ok 'Catalyst::Test', 'Gitalist'
}

ok( request('/')->is_success, 'Request should succeed' );

done_testing;
Commit	Line	Data
89de6a33	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
a38862e5	4	use Test::More;
a38862e5	5	use FindBin qw/$Bin/;
89de6a33	6
a38862e5	7	BEGIN {
	8	$ENV{GITALIST_CONFIG} = $Bin;
	9	use_ok 'Catalyst::Test', 'Gitalist'
	10	}
28e35997	11
89de6a33	12	ok( request('/')->is_success, 'Request should succeed' );
28e35997	13
a38862e5	14	done_testing;
a38862e5	15