Commit | Line | Data |
5ed74c87 |
1 | use FindBin qw/$Bin/; |
df629266 |
2 | BEGIN { |
0556ab26 |
3 | my $env = "$FindBin::Bin/../script/env"; |
df629266 |
4 | if (-r $env) { |
5 | do $env or die $@; |
6 | } |
7 | } |
8 | |
329ac3b2 |
9 | use strict; |
10 | use warnings; |
11 | |
12 | use Test::More; |
13 | use Test::Exception; |
0fd9a84a |
14 | use lib "$Bin/lib"; # Used for testing of --model-class etc |
329ac3b2 |
15 | |
16 | use Moose (); |
17 | use Moose::Object; |
20f9a2d4 |
18 | use Moose::Autobox; |
329ac3b2 |
19 | use Class::MOP::Class; |
20 | use Catalyst::Request; |
21 | use Catalyst::Response; |
22 | use Catalyst::Utils; |
7bf1a6f5 |
23 | use Gitalist::Model::CollectionOfRepos; |
07ee9dc1 |
24 | use File::Temp qw/tempdir tempfile/; |
7bf1a6f5 |
25 | |
ea772511 |
26 | my $run_options = {}; |
329ac3b2 |
27 | my $mock_ctx_meta = Class::MOP::Class->create_anon_class( superclasses => ['Moose::Object'] ); |
ea772511 |
28 | $mock_ctx_meta->add_method('run_options' => sub { $run_options }); |
329ac3b2 |
29 | $mock_ctx_meta->add_attribute($_, accessor => $_, required => 1) for qw/request response/; |
31d3c368 |
30 | $mock_ctx_meta->add_method('debug' => sub {}); |
329ac3b2 |
31 | $mock_ctx_meta->add_attribute('stash', accessor => 'stash', required => 1, default => sub { {} }); |
32 | $mock_ctx_meta->add_around_method_modifier( stash => sub { # Nicked straight from Catalyst.pm |
33 | my $orig = shift; |
34 | my $c = shift; |
35 | my $stash = $orig->($c); |
36 | if (@_) { |
37 | my $new_stash = @_ > 1 ? {@_} : $_[0]; |
38 | croak('stash takes a hash or hashref') unless ref $new_stash; |
39 | foreach my $key ( keys %$new_stash ) { |
40 | $stash->{$key} = $new_stash->{$key}; |
41 | } |
42 | } |
43 | return $stash; |
44 | }); |
ea772511 |
45 | my $mock_log = Moose::Meta::Class->create_anon_class( superclasses => ['Moose::Object'] ); |
46 | $mock_log->add_method($_ => sub {}) for qw/ warn info debug /; |
47 | my $logger = $mock_log->name->new; |
48 | $mock_ctx_meta->add_method('log' => sub { $logger }); |
0fd9a84a |
49 | |
4d334b53 |
50 | my $host = "git.shadowcat.co.uk"; |
51 | $mock_ctx_meta->add_method('uri' => sub { URI->new("http://$host/") }); |
329ac3b2 |
52 | our $ctx_gen = sub { |
0fd9a84a |
53 | my ($cb, %args) = @_; |
329ac3b2 |
54 | my $ctx = $mock_ctx_meta->new_object( |
0fd9a84a |
55 | response => Catalyst::Response->new, |
bff2058a |
56 | # Too lazy to mock up Catalyst::Log |
57 | request => Catalyst::Request->new(uri => URI->new("http://$host/"), _log => 1), |
0fd9a84a |
58 | stash => {}, |
59 | %args |
329ac3b2 |
60 | ); |
329ac3b2 |
61 | $cb->($ctx) if $cb; |
62 | return $ctx; |
63 | }; |
64 | |
65 | local %ENV = %ENV; |
4d334b53 |
66 | delete $ENV{GITALIST_CONFIG}; |
329ac3b2 |
67 | delete $ENV{GITALIST_REPO_DIR}; |
68 | |
ea772511 |
69 | throws_ok { my $i = Gitalist::Model::CollectionOfRepos->COMPONENT($ctx_gen->(), {}); $i->{_application} = $mock_ctx_meta->name; } |
70 | qr/Don't know where to get repositores from/, 'Blows up nicely with no repos dir'; |
329ac3b2 |
71 | |
f4184925 |
72 | throws_ok { Gitalist::Model::CollectionOfRepos->COMPONENT($ctx_gen->(), { repo_dir => '/does/not/exist' }) } |
ea772511 |
73 | qr|No such file or directory|, 'Blows up nicely with repos dir does not exist'; |
329ac3b2 |
74 | |
75 | { |
76 | my $td = tempdir( CLEANUP => 1 ); |
f4184925 |
77 | test_with_config({ repo_dir => $td }, msg => 'repo_dir is tempdir'); |
329ac3b2 |
78 | # NOTE - This is cheating, there isn't a real git repository here, so things will explode (hopefully) |
79 | # if we go much further.. |
0fd9a84a |
80 | test_with_config({ repos => $td }, msg => 'repos is tempdir (scalar)'); |
81 | test_with_config({ repos => [$td] }, msg => 'repos is tempdir (array)'); |
329ac3b2 |
82 | } |
83 | |
84 | # Note - we treat an empty list of repos as if it doesn't exist at all. |
7bf1a6f5 |
85 | throws_ok { Gitalist::Model::CollectionOfRepos->COMPONENT($ctx_gen->(), { repos => [] } ) } |
329ac3b2 |
86 | qr/Cannot find repository dir/, 'Blows up nicely with no repos list'; |
87 | |
7bf1a6f5 |
88 | throws_ok { Gitalist::Model::CollectionOfRepos->COMPONENT($ctx_gen->(), { repos => [ '/does/not/exist' ] } ) } |
ea772511 |
89 | qr/No such file or directory/, 'Blows up nicely with repos list - 1 unknown item (array)'; |
7bf1a6f5 |
90 | throws_ok { Gitalist::Model::CollectionOfRepos->COMPONENT($ctx_gen->(), { repos => '/does/not/exist' } ) } |
ea772511 |
91 | qr/No such file or directory/, 'Blows up nicely with repos list - 1 unknown item (scalar))'; |
329ac3b2 |
92 | |
7bf1a6f5 |
93 | throws_ok { Gitalist::Model::CollectionOfRepos->COMPONENT($ctx_gen->(), { repos => [ '/does/not/exist', '/also/does/not/exist' ] } ) } |
ea772511 |
94 | qr/No such file or directory/, 'Blows up nicely with repos list - 2 unknown items'; |
329ac3b2 |
95 | |
7bf1a6f5 |
96 | throws_ok { Gitalist::Model::CollectionOfRepos->COMPONENT($ctx_gen->(), { repos => [ tempdir( CLEANUP => 1), '/also/does/not/exist' ] } ) } |
ea772511 |
97 | qr|No such file or directory|, 'Blows up nicely with repos list - 1 known, 1 unknown items'; |
329ac3b2 |
98 | |
99 | { |
100 | my $td = tempdir( CLEANUP => 1 ); |
101 | local %ENV = %ENV; |
102 | $ENV{GITALIST_REPO_DIR} = $td; |
7bf1a6f5 |
103 | lives_ok { Gitalist::Model::CollectionOfRepos->COMPONENT($ctx_gen->(), {}) } 'GITALIST_REPO_DIR env variable works'; |
329ac3b2 |
104 | } |
105 | |
20f9a2d4 |
106 | { |
f4184925 |
107 | my $i = test_with_config({ repo_dir => "$FindBin::Bin/lib/repositories"}); |
039a5ec4 |
108 | is scalar($i->repositories->flatten), 3, 'Found 3 repos'; |
07ee9dc1 |
109 | isa_ok $i, 'Gitalist::Git::CollectionOfRepositories::FromDirectory'; |
1891c774 |
110 | } |
111 | |
112 | { |
f4184925 |
113 | my $i = test_with_config({ repo_dir => "$FindBin::Bin/lib/repositories", search_recursively => 1 }); |
039a5ec4 |
114 | is scalar($i->repositories->flatten), 7, 'Found 7 repos recursively using config'; |
1891c774 |
115 | isa_ok $i, 'Gitalist::Git::CollectionOfRepositories::FromDirectoryRecursive'; |
116 | } |
07ee9dc1 |
117 | { |
118 | my($tempfh, $wl) = tempfile(UNLINK => 1); |
119 | print {$tempfh} "repo1"; |
120 | close $tempfh; |
f4184925 |
121 | my $i = test_with_config({ repo_dir => "$FindBin::Bin/lib/repositories", whitelist => $wl }); |
07ee9dc1 |
122 | is scalar($i->repositories->flatten), 1, 'Found 1 repos using whitelist'; |
123 | isa_ok $i, 'Gitalist::Git::CollectionOfRepositories::FromDirectory::WhiteList'; |
124 | } |
1891c774 |
125 | |
126 | { |
20f9a2d4 |
127 | my $i = test_with_config({ repos => [ |
128 | "$FindBin::Bin/lib/repositories/bare.git", |
129 | "$FindBin::Bin/lib/repositories/repo1", |
130 | "$FindBin::Bin/lib/repositories/nodescription", |
131 | ]}); |
132 | is scalar($i->repositories->flatten), 3, 'Found 3 repos'; |
07ee9dc1 |
133 | isa_ok $i, 'Gitalist::Git::CollectionOfRepositories::FromListOfDirectories'; |
20f9a2d4 |
134 | } |
135 | |
0fd9a84a |
136 | { |
137 | my $i = test_with_config({ |
f4184925 |
138 | repo_dir => "$FindBin::Bin/lib/repositories", |
0fd9a84a |
139 | class => 'TestModelSimple' |
140 | }); |
141 | is scalar($i->repositories->flatten), 3, 'Found 3 repos'; |
142 | isa_ok $i, 'TestModelSimple'; |
143 | } |
144 | |
145 | { |
146 | my $i = test_with_config({ |
f4184925 |
147 | repo_dir => "$FindBin::Bin/lib/repositories", |
0fd9a84a |
148 | class => 'TestModelFancy', |
149 | args => { fanciness => 1 }, |
150 | }); |
151 | is scalar($i->repositories->flatten), 1, 'Found 1 repo'; |
152 | isa_ok $i, 'TestModelFancy'; |
153 | ok $i->fanciness, "The TestModelFancy is fancy (so --model-args worked)"; |
154 | } |
155 | |
31d3c368 |
156 | sub test_vhost_instance { |
157 | test_with_config({ |
158 | class => 'Gitalist::Git::CollectionOfRepositories::Vhost', |
159 | args => { |
160 | vhost_dispatch => { |
161 | "git.shadowcat.co.uk" => "default", |
162 | "git.moose.perl.org" => "moose", |
163 | "git.catalyst.perl.org" => "catgit", |
164 | "_default_" => "default", |
165 | }, |
166 | collections => { |
167 | moose => { class => 'Gitalist::Git::CollectionOfRepositories::FromDirectory', repo_dir => "$FindBin::Bin/lib/repositories_sets/moose" }, |
168 | catgit => { class => 'Gitalist::Git::CollectionOfRepositories::FromDirectory', repo_dir => "$FindBin::Bin/lib/repositories_sets/catgit" }, |
169 | default => { class => 'Gitalist::Git::CollectionOfRepositories::FromDirectoryRecursive', repo_dir => "$FindBin::Bin/lib/repositories_sets"}, |
170 | } |
171 | }, |
172 | }); |
173 | } |
174 | |
4d334b53 |
175 | my $c_name = "$FindBin::Bin/lib/repositories_sets/catgit/Catalyst-Runtime"; |
176 | my $m_name = "$FindBin::Bin/lib/repositories_sets/moose/Moose"; |
31d3c368 |
177 | { |
178 | my $i = test_vhost_instance(); |
179 | is scalar($i->repositories->flatten), 2, 'Found 2 repos on test vhost'; |
180 | my @r = $i->repositories->flatten; |
181 | my @paths = sort map { $_->path . "" } $i->repositories->flatten; |
182 | is_deeply \@paths, [sort $c_name, $m_name]; |
183 | } |
184 | |
185 | { |
186 | $host = "git.moose.perl.org"; |
187 | my $i = test_vhost_instance(); |
188 | is scalar($i->repositories->flatten), 1, 'Found 1 repos on moose vhost'; |
189 | is $i->repositories->[0]->path.'', $m_name; |
190 | } |
191 | |
192 | { |
193 | $host = "git.catalyst.perl.org"; |
194 | my $i = test_vhost_instance(); |
195 | is scalar($i->repositories->flatten), 1, 'Found 1 repos on catalyst vhost'; |
196 | is $i->repositories->[0]->path.'', $c_name; |
197 | } |
198 | |
199 | { |
200 | $host = "git.shadowcat.co.uk"; |
201 | my $i = test_vhost_instance(); |
202 | is scalar($i->repositories->flatten), 2, 'Found 2 repos on git.shadowcat vhost'; |
203 | my @paths = sort map { $_->path . "" } $i->repositories->flatten; |
204 | is_deeply \@paths, [sort $c_name, $m_name]; |
205 | } |
206 | |
329ac3b2 |
207 | sub test_with_config { |
0fd9a84a |
208 | my ($config, %opts) = @_; |
209 | my $msg = delete $opts{msg} || 'Built Model without exception'; |
210 | my $ctx = $ctx_gen->(undef, %opts); |
329ac3b2 |
211 | my $m; |
7bf1a6f5 |
212 | lives_ok { $m = Gitalist::Model::CollectionOfRepos->COMPONENT($ctx, $config) } $msg; |
329ac3b2 |
213 | ok $m, 'Has model'; |
214 | my $i = $m->ACCEPT_CONTEXT($ctx); |
215 | ok $i, 'Has model instance from ACCEPT_CONTEXT'; |
329ac3b2 |
216 | return $i; |
217 | } |
218 | |
219 | done_testing; |