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 | |
31d3c368 |
50 | my $host = "example.gitalist.com"; |
329ac3b2 |
51 | our $ctx_gen = sub { |
0fd9a84a |
52 | my ($cb, %args) = @_; |
329ac3b2 |
53 | my $ctx = $mock_ctx_meta->new_object( |
0fd9a84a |
54 | response => Catalyst::Response->new, |
31d3c368 |
55 | request => Catalyst::Request->new(uri => URI->new("http://$host/")), |
0fd9a84a |
56 | stash => {}, |
57 | %args |
329ac3b2 |
58 | ); |
59 | $ctx->response->_context($ctx); |
60 | $ctx->request->_context($ctx); |
61 | $cb->($ctx) if $cb; |
62 | return $ctx; |
63 | }; |
64 | |
65 | local %ENV = %ENV; |
66 | delete $ENV{GITALIST_REPO_DIR}; |
67 | |
ea772511 |
68 | throws_ok { my $i = Gitalist::Model::CollectionOfRepos->COMPONENT($ctx_gen->(), {}); $i->{_application} = $mock_ctx_meta->name; } |
69 | qr/Don't know where to get repositores from/, 'Blows up nicely with no repos dir'; |
329ac3b2 |
70 | |
f4184925 |
71 | throws_ok { Gitalist::Model::CollectionOfRepos->COMPONENT($ctx_gen->(), { repo_dir => '/does/not/exist' }) } |
ea772511 |
72 | qr|No such file or directory|, 'Blows up nicely with repos dir does not exist'; |
329ac3b2 |
73 | |
74 | { |
75 | my $td = tempdir( CLEANUP => 1 ); |
f4184925 |
76 | test_with_config({ repo_dir => $td }, msg => 'repo_dir is tempdir'); |
329ac3b2 |
77 | # NOTE - This is cheating, there isn't a real git repository here, so things will explode (hopefully) |
78 | # if we go much further.. |
0fd9a84a |
79 | test_with_config({ repos => $td }, msg => 'repos is tempdir (scalar)'); |
80 | test_with_config({ repos => [$td] }, msg => 'repos is tempdir (array)'); |
329ac3b2 |
81 | } |
82 | |
83 | # Note - we treat an empty list of repos as if it doesn't exist at all. |
7bf1a6f5 |
84 | throws_ok { Gitalist::Model::CollectionOfRepos->COMPONENT($ctx_gen->(), { repos => [] } ) } |
329ac3b2 |
85 | qr/Cannot find repository dir/, 'Blows up nicely with no repos list'; |
86 | |
7bf1a6f5 |
87 | throws_ok { Gitalist::Model::CollectionOfRepos->COMPONENT($ctx_gen->(), { repos => [ '/does/not/exist' ] } ) } |
ea772511 |
88 | qr/No such file or directory/, 'Blows up nicely with repos list - 1 unknown item (array)'; |
7bf1a6f5 |
89 | throws_ok { Gitalist::Model::CollectionOfRepos->COMPONENT($ctx_gen->(), { repos => '/does/not/exist' } ) } |
ea772511 |
90 | qr/No such file or directory/, 'Blows up nicely with repos list - 1 unknown item (scalar))'; |
329ac3b2 |
91 | |
7bf1a6f5 |
92 | throws_ok { Gitalist::Model::CollectionOfRepos->COMPONENT($ctx_gen->(), { repos => [ '/does/not/exist', '/also/does/not/exist' ] } ) } |
ea772511 |
93 | qr/No such file or directory/, 'Blows up nicely with repos list - 2 unknown items'; |
329ac3b2 |
94 | |
7bf1a6f5 |
95 | throws_ok { Gitalist::Model::CollectionOfRepos->COMPONENT($ctx_gen->(), { repos => [ tempdir( CLEANUP => 1), '/also/does/not/exist' ] } ) } |
ea772511 |
96 | qr|No such file or directory|, 'Blows up nicely with repos list - 1 known, 1 unknown items'; |
329ac3b2 |
97 | |
98 | { |
99 | my $td = tempdir( CLEANUP => 1 ); |
100 | local %ENV = %ENV; |
101 | $ENV{GITALIST_REPO_DIR} = $td; |
7bf1a6f5 |
102 | lives_ok { Gitalist::Model::CollectionOfRepos->COMPONENT($ctx_gen->(), {}) } 'GITALIST_REPO_DIR env variable works'; |
329ac3b2 |
103 | } |
104 | |
20f9a2d4 |
105 | { |
f4184925 |
106 | my $i = test_with_config({ repo_dir => "$FindBin::Bin/lib/repositories"}); |
039a5ec4 |
107 | is scalar($i->repositories->flatten), 3, 'Found 3 repos'; |
07ee9dc1 |
108 | isa_ok $i, 'Gitalist::Git::CollectionOfRepositories::FromDirectory'; |
1891c774 |
109 | } |
110 | |
111 | { |
f4184925 |
112 | my $i = test_with_config({ repo_dir => "$FindBin::Bin/lib/repositories", search_recursively => 1 }); |
039a5ec4 |
113 | is scalar($i->repositories->flatten), 7, 'Found 7 repos recursively using config'; |
1891c774 |
114 | isa_ok $i, 'Gitalist::Git::CollectionOfRepositories::FromDirectoryRecursive'; |
115 | } |
07ee9dc1 |
116 | { |
117 | my($tempfh, $wl) = tempfile(UNLINK => 1); |
118 | print {$tempfh} "repo1"; |
119 | close $tempfh; |
f4184925 |
120 | my $i = test_with_config({ repo_dir => "$FindBin::Bin/lib/repositories", whitelist => $wl }); |
07ee9dc1 |
121 | is scalar($i->repositories->flatten), 1, 'Found 1 repos using whitelist'; |
122 | isa_ok $i, 'Gitalist::Git::CollectionOfRepositories::FromDirectory::WhiteList'; |
123 | } |
1891c774 |
124 | |
125 | { |
20f9a2d4 |
126 | my $i = test_with_config({ repos => [ |
127 | "$FindBin::Bin/lib/repositories/bare.git", |
128 | "$FindBin::Bin/lib/repositories/repo1", |
129 | "$FindBin::Bin/lib/repositories/nodescription", |
130 | ]}); |
131 | is scalar($i->repositories->flatten), 3, 'Found 3 repos'; |
07ee9dc1 |
132 | isa_ok $i, 'Gitalist::Git::CollectionOfRepositories::FromListOfDirectories'; |
20f9a2d4 |
133 | } |
134 | |
0fd9a84a |
135 | { |
136 | my $i = test_with_config({ |
f4184925 |
137 | repo_dir => "$FindBin::Bin/lib/repositories", |
0fd9a84a |
138 | class => 'TestModelSimple' |
139 | }); |
140 | is scalar($i->repositories->flatten), 3, 'Found 3 repos'; |
141 | isa_ok $i, 'TestModelSimple'; |
142 | } |
143 | |
144 | { |
145 | my $i = test_with_config({ |
f4184925 |
146 | repo_dir => "$FindBin::Bin/lib/repositories", |
0fd9a84a |
147 | class => 'TestModelFancy', |
148 | args => { fanciness => 1 }, |
149 | }); |
150 | is scalar($i->repositories->flatten), 1, 'Found 1 repo'; |
151 | isa_ok $i, 'TestModelFancy'; |
152 | ok $i->fanciness, "The TestModelFancy is fancy (so --model-args worked)"; |
153 | } |
154 | |
31d3c368 |
155 | sub test_vhost_instance { |
156 | test_with_config({ |
157 | class => 'Gitalist::Git::CollectionOfRepositories::Vhost', |
158 | args => { |
159 | vhost_dispatch => { |
160 | "git.shadowcat.co.uk" => "default", |
161 | "git.moose.perl.org" => "moose", |
162 | "git.catalyst.perl.org" => "catgit", |
163 | "_default_" => "default", |
164 | }, |
165 | collections => { |
166 | moose => { class => 'Gitalist::Git::CollectionOfRepositories::FromDirectory', repo_dir => "$FindBin::Bin/lib/repositories_sets/moose" }, |
167 | catgit => { class => 'Gitalist::Git::CollectionOfRepositories::FromDirectory', repo_dir => "$FindBin::Bin/lib/repositories_sets/catgit" }, |
168 | default => { class => 'Gitalist::Git::CollectionOfRepositories::FromDirectoryRecursive', repo_dir => "$FindBin::Bin/lib/repositories_sets"}, |
169 | } |
170 | }, |
171 | }); |
172 | } |
173 | |
174 | my $c_name = "$FindBin::Bin/lib/repositories_sets/catgit/Catalyst-Runtime/.git"; |
175 | my $m_name = "$FindBin::Bin/lib/repositories_sets/moose/Moose/.git"; |
176 | { |
177 | my $i = test_vhost_instance(); |
178 | is scalar($i->repositories->flatten), 2, 'Found 2 repos on test vhost'; |
179 | my @r = $i->repositories->flatten; |
180 | my @paths = sort map { $_->path . "" } $i->repositories->flatten; |
181 | is_deeply \@paths, [sort $c_name, $m_name]; |
182 | } |
183 | |
184 | { |
185 | $host = "git.moose.perl.org"; |
186 | my $i = test_vhost_instance(); |
187 | is scalar($i->repositories->flatten), 1, 'Found 1 repos on moose vhost'; |
188 | is $i->repositories->[0]->path.'', $m_name; |
189 | } |
190 | |
191 | { |
192 | $host = "git.catalyst.perl.org"; |
193 | my $i = test_vhost_instance(); |
194 | is scalar($i->repositories->flatten), 1, 'Found 1 repos on catalyst vhost'; |
195 | is $i->repositories->[0]->path.'', $c_name; |
196 | } |
197 | |
198 | { |
199 | $host = "git.shadowcat.co.uk"; |
200 | my $i = test_vhost_instance(); |
201 | is scalar($i->repositories->flatten), 2, 'Found 2 repos on git.shadowcat vhost'; |
202 | my @paths = sort map { $_->path . "" } $i->repositories->flatten; |
203 | is_deeply \@paths, [sort $c_name, $m_name]; |
204 | } |
205 | |
329ac3b2 |
206 | sub test_with_config { |
0fd9a84a |
207 | my ($config, %opts) = @_; |
208 | my $msg = delete $opts{msg} || 'Built Model without exception'; |
209 | my $ctx = $ctx_gen->(undef, %opts); |
329ac3b2 |
210 | my $m; |
7bf1a6f5 |
211 | lives_ok { $m = Gitalist::Model::CollectionOfRepos->COMPONENT($ctx, $config) } $msg; |
329ac3b2 |
212 | ok $m, 'Has model'; |
213 | my $i = $m->ACCEPT_CONTEXT($ctx); |
214 | ok $i, 'Has model instance from ACCEPT_CONTEXT'; |
215 | isnt $i, $m, 'Model instance returned from ACCEPT_CONTEXT not same as model'; |
216 | is $i, $m->ACCEPT_CONTEXT($ctx), 'Same model instance for same context'; |
217 | isnt $i, $m->ACCEPT_CONTEXT($ctx_gen->()), 'Different model instance for different context'; |
218 | return $i; |
219 | } |
220 | |
221 | done_testing; |