4 use Test::More qw/no_plan/;
6 BEGIN { use_ok 'Catalyst::Test', 'Gitalist' }
8 # Full tests are only run if the APP_TEST env var is set.
9 # This is needed to load the test configuration.
10 diag("*** SKIPPING app tests.
11 *** Set APP_TEST for the tests to run fully") if !$ENV{APP_TEST};
13 skip "Set APP_TEST for the tests to run fully",
16 ok( request('/')->is_success, 'Request should succeed' );
21 my $test_repo1 = curry_test_uri('repo1');
22 &$test_repo1('/summary');
23 &$test_repo1('/heads');
24 &$test_repo1('/shortlog');
26 &$test_repo1('/commit');
27 &$test_repo1('/commitdiff');
28 &$test_repo1('/tree');
31 &$test_repo1('/', 'a=summary');
32 &$test_repo1('/', 'a=heads');
33 &$test_repo1('/', 'a=shortlog');
34 &$test_repo1('/', 'a=log');
35 &$test_repo1('/', 'a=commit');
36 &$test_repo1('/', 'a=commitdiff');
37 &$test_repo1('/', 'a=tree');
38 # &$test_repo1('/', 'a=blob;f=file1');
40 } # Close APP_TEST skip
43 my ($p, $uri, $qs) = @_;
45 my $request = "$uri?p=repo1;$qs";
46 warn("request: $request");
47 my $response = request($request);
48 ok($response->is_success, "ok $p - $uri");
55 test_uri($p, $uri, $qs);