[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' );
for my $p (qw/ bare.git repo1 nodescription /) {
    my $path = '/summary?p=' . $p;
    ok( request($path)->is_success, "$path 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' );
5fd1f586	13	for my $p (qw/ bare.git repo1 nodescription /) {
	14	my $path = '/summary?p=' . $p;
	15	ok( request($path)->is_success, "$path should succeed");
	16	}
28e35997	17
a38862e5	18	done_testing;
a38862e5	19