Commit | Line | Data |
89de6a33 |
1 | #!/usr/bin/env perl |
2 | use strict; |
3 | use warnings; |
a38862e5 |
4 | use Test::More; |
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' ); |
f2338f4f |
13 | |
10af354d |
14 | for my $p (qw/ repo1 nodescription /) { |
5fd1f586 |
15 | my $path = '/summary?p=' . $p; |
16 | ok( request($path)->is_success, "$path should succeed"); |
17 | } |
28e35997 |
18 | |
e8b87f6b |
19 | is request('/summary?p=DoesNotExist')->code, 404, |
20 | '/summary?p=DoesNotExist 404s'; |
f9466a6c |
21 | { |
f2338f4f |
22 | # URI tests for repo1 |
f9466a6c |
23 | local *test = curry_test_uri('repo1'); |
24 | test('/summary'); |
25 | test('/shortlog'); |
26 | test('/log'); |
d8abdf1c |
27 | test('/reflog'); |
f9466a6c |
28 | test('/commit'); |
29 | test('/commitdiff', 'h=36c6c6708b8360d7023e8a1649c45bcf9b3bd818'); |
30 | test('/tree', 'h=145dc3ef5d307be84cb9b325d70bd08aeed0eceb;hb=36c6c6708b8360d7023e8a1649c45bcf9b3bd818'); |
d8abdf1c |
31 | test('/search', 'h=36c6c6708b8360d7023e8a1649c45bcf9b3bd818&f=&type=commit&text=added'); |
f9466a6c |
32 | } |
e8b87f6b |
33 | |
a38862e5 |
34 | done_testing; |
35 | |
f2338f4f |
36 | sub test_uri { |
37 | my ($p, $uri, $qs) = @_; |
38 | $qs ||= ''; |
39 | my $request = "$uri?p=repo1;$qs"; |
f2338f4f |
40 | my $response = request($request); |
41 | ok($response->is_success, "ok $p - $uri"); |
42 | } |
43 | |
44 | sub curry_test_uri { |
45 | my $p = shift; |
46 | sub { |
46aab84d |
47 | my ($uri, $qs) = @_; |
48 | test_uri($p, $uri, $qs); |
f2338f4f |
49 | }; |
50 | }; |