5 my $env = "$FindBin::Bin/../script/env";
14 use HTTP::Request::Common;
15 use JSON::XS qw/decode_json encode_json/;
18 $ENV{GITALIST_CONFIG} = $Bin;
19 $ENV{GITALIST_REPO_DIR} = '';
20 use_ok 'Catalyst::Test', 'Gitalist';
23 my $res = request(GET 'http://localhost/repo1', 'Content-Type' => 'application/json');
25 my $data = decode_json $res->content;
26 is ref($data), 'HASH';
28 if $data && exists $data->{owner};
31 '__CLASS__' => 'Gitalist::Git::Repository',
32 'last_change' => '2011-06-05T23:00:44Z',
34 'description' => 'some test repository'