[catagits/Gitalist.git] / t / app-mech-rootpage.t

#!/usr/bin/env perl
use FindBin qw/$Bin/;
use lib "$Bin/lib";
use TestGitalist;
plan 'skip_all' => 'No WWW::Mechanize' unless MECH();

MECH->get_ok('/');
ok MECH->findnodes_as_string('/html/body');

done_testing;
Commit	Line	Data
08122a3c	1	#!/usr/bin/env perl
	2	use FindBin qw/$Bin/;
	3	use lib "$Bin/lib";
	4	use TestGitalist;
	5	plan 'skip_all' => 'No WWW::Mechanize' unless MECH();
	6
	7	MECH->get_ok('/');
	8	ok MECH->findnodes_as_string('/html/body');
	9
	10	done_testing;