[catagits/Gitalist.git] / t / scripts.t

use FindBin qw/$Bin/;
BEGIN {
    my $env = "$FindBin::Bin/../script/env";
    if (-r $env) {
        do $env or die $@;
    }
}


use strict;
use warnings;
use Test::More;

use_ok('Gitalist::Script::CGI');
use_ok('Gitalist::Script::Server');
use_ok('Gitalist::Script::FastCGI');

# FIXME - Test the script role.

done_testing;
Commit	Line	Data
5ed74c87	1	use FindBin qw/$Bin/;
df629266	2	BEGIN {
0556ab26	3	my $env = "$FindBin::Bin/../script/env";
df629266	4	if (-r $env) {
	5	do $env or die $@;
	6	}
	7	}
	8
5ed74c87	9
a18818fd	10	use strict;
	11	use warnings;
	12	use Test::More;
	13
	14	use_ok('Gitalist::Script::CGI');
	15	use_ok('Gitalist::Script::Server');
	16	use_ok('Gitalist::Script::FastCGI');
	17
	18	# FIXME - Test the script role.
	19
	20	done_testing;
	21