Commit | Line | Data |
49aca798 |
1 | #!/usr/bin/env perl |
2 | use strict; |
3 | use warnings; |
4 | use Test::More; |
5 | use HTTP::Request::Common; |
6 | use FindBin qw/$Bin/; |
7 | use JSON::Any; |
8 | |
9 | BEGIN { |
10 | $ENV{GITALIST_CONFIG} = $Bin; |
11 | $ENV{GITALIST_REPO_DIR} = ''; |
12 | use_ok 'Catalyst::Test', 'Gitalist'; |
13 | } |
14 | |
15 | my $j = JSON::Any->new; |
16 | |
17 | my $res = request(GET 'http://localhost/summary?p=repo1', 'Content-Type' => 'application/json'); |
18 | is $res->code, 200; |
19 | my $data = $j->decode($res->content); |
20 | is ref($data), 'HASH'; |
21 | is_deeply $data, { |
22 | 'owner' => 'Tomas Doran', |
23 | 'is_bare' => 1, |
24 | '__CLASS__' => 'Gitalist::Git::Repository', |
25 | 'last_change' => '2009-11-12T19:00:34Z', |
26 | 'references' => { |
27 | '0710a7c8ee11c73e8098d08f9384c2a839c65e4e' => [ |
28 | 'heads/branch1' |
29 | ], |
30 | '36c6c6708b8360d7023e8a1649c45bcf9b3bd818' => [ |
31 | 'heads/master' |
32 | ] |
33 | }, |
34 | 'name' => 'repo1', |
35 | 'description' => 'some test repository' |
36 | }; |
37 | |
38 | done_testing; |
39 | |
40 | |