Lines 38-55
eval {
Link Here
|
38 |
|
38 |
|
39 |
$CWD = $git_repo; |
39 |
$CWD = $git_repo; |
40 |
my $qoha_git = QohA::Git->new(); |
40 |
my $qoha_git = QohA::Git->new(); |
41 |
my $modified_files = QohA::Files->new( { files => $qoha_git->log($num_of_commits) } ); |
41 |
my $log_files = $qoha_git->log($num_of_commits); |
42 |
|
42 |
my $modified_files = QohA::Files->new( { files => $log_files } ); |
43 |
|
43 |
|
44 |
$qoha_git->delete_branch( 'qa-prev-commit_t' ); |
44 |
$qoha_git->delete_branch( 'qa-prev-commit_t' ); |
45 |
$qoha_git->create_and_change_branch( 'qa-prev-commit_t' ); |
45 |
$qoha_git->create_and_change_branch( 'qa-prev-commit_t' ); |
46 |
$qoha_git->reset_hard_prev( $num_of_commits ); |
46 |
$qoha_git->reset_hard_prev( $num_of_commits ); |
47 |
|
47 |
|
48 |
my @files = ( |
48 |
my @files = @{ $modified_files->files }; |
49 |
$modified_files->filter( { extension => [ qw< perl tt xml yaml > ] } ), |
|
|
50 |
$modified_files->filter( { name => [ qw< sysprefs.sql > ] } ), |
51 |
$modified_files->filter( { name => [ qw< kohastructure.sql > ] } ), |
52 |
); |
53 |
for my $f ( @files ) { |
49 |
for my $f ( @files ) { |
54 |
$f->run_checks(); |
50 |
$f->run_checks(); |
55 |
} |
51 |
} |
Lines 114-124
eval {
Link Here
|
114 |
EOL |
110 |
EOL |
115 |
my $r_v1_expected = <<EOL; |
111 |
my $r_v1_expected = <<EOL; |
116 |
$STATUS_KO i_fail_yaml.yaml |
112 |
$STATUS_KO i_fail_yaml.yaml |
|
|
113 |
$STATUS_OK git manipulation |
117 |
$STATUS_KO yaml_valid |
114 |
$STATUS_KO yaml_valid |
118 |
|
115 |
|
119 |
$STATUS_KO perl/Authority.pm |
116 |
$STATUS_KO perl/Authority.pm |
120 |
$STATUS_OK critic |
117 |
$STATUS_OK critic |
121 |
$STATUS_KO forbidden patterns |
118 |
$STATUS_KO forbidden patterns |
|
|
119 |
$STATUS_OK git manipulation |
122 |
$STATUS_OK pod |
120 |
$STATUS_OK pod |
123 |
$STATUS_OK spelling |
121 |
$STATUS_OK spelling |
124 |
$STATUS_OK valid |
122 |
$STATUS_OK valid |
Lines 126-131
EOL
Link Here
|
126 |
$STATUS_OK perl/i_dont_fail_spelling.pl |
124 |
$STATUS_OK perl/i_dont_fail_spelling.pl |
127 |
$STATUS_OK critic |
125 |
$STATUS_OK critic |
128 |
$STATUS_OK forbidden patterns |
126 |
$STATUS_OK forbidden patterns |
|
|
127 |
$STATUS_OK git manipulation |
129 |
$STATUS_OK pod |
128 |
$STATUS_OK pod |
130 |
$STATUS_OK spelling |
129 |
$STATUS_OK spelling |
131 |
$STATUS_OK valid |
130 |
$STATUS_OK valid |
Lines 133-138
EOL
Link Here
|
133 |
$STATUS_KO perl/i_fail_compil.pl |
132 |
$STATUS_KO perl/i_fail_compil.pl |
134 |
$STATUS_OK critic |
133 |
$STATUS_OK critic |
135 |
$STATUS_OK forbidden patterns |
134 |
$STATUS_OK forbidden patterns |
|
|
135 |
$STATUS_OK git manipulation |
136 |
$STATUS_OK pod |
136 |
$STATUS_OK pod |
137 |
$STATUS_OK spelling |
137 |
$STATUS_OK spelling |
138 |
$STATUS_KO valid |
138 |
$STATUS_KO valid |
Lines 140-145
EOL
Link Here
|
140 |
$STATUS_KO perl/i_fail_critic.pl |
140 |
$STATUS_KO perl/i_fail_critic.pl |
141 |
$STATUS_KO critic |
141 |
$STATUS_KO critic |
142 |
$STATUS_OK forbidden patterns |
142 |
$STATUS_OK forbidden patterns |
|
|
143 |
$STATUS_OK git manipulation |
143 |
$STATUS_OK pod |
144 |
$STATUS_OK pod |
144 |
$STATUS_OK spelling |
145 |
$STATUS_OK spelling |
145 |
$STATUS_OK valid |
146 |
$STATUS_OK valid |
Lines 147-152
EOL
Link Here
|
147 |
$STATUS_KO perl/i_fail_license.pl |
148 |
$STATUS_KO perl/i_fail_license.pl |
148 |
$STATUS_OK critic |
149 |
$STATUS_OK critic |
149 |
$STATUS_KO forbidden patterns |
150 |
$STATUS_KO forbidden patterns |
|
|
151 |
$STATUS_OK git manipulation |
150 |
$STATUS_OK pod |
152 |
$STATUS_OK pod |
151 |
$STATUS_OK spelling |
153 |
$STATUS_OK spelling |
152 |
$STATUS_OK valid |
154 |
$STATUS_OK valid |
Lines 154-159
EOL
Link Here
|
154 |
$STATUS_KO perl/i_fail_patterns.pl |
156 |
$STATUS_KO perl/i_fail_patterns.pl |
155 |
$STATUS_OK critic |
157 |
$STATUS_OK critic |
156 |
$STATUS_KO forbidden patterns |
158 |
$STATUS_KO forbidden patterns |
|
|
159 |
$STATUS_OK git manipulation |
157 |
$STATUS_OK pod |
160 |
$STATUS_OK pod |
158 |
$STATUS_OK spelling |
161 |
$STATUS_OK spelling |
159 |
$STATUS_KO valid |
162 |
$STATUS_KO valid |
Lines 161-166
EOL
Link Here
|
161 |
$STATUS_KO perl/i_fail_spelling.pl |
164 |
$STATUS_KO perl/i_fail_spelling.pl |
162 |
$STATUS_OK critic |
165 |
$STATUS_OK critic |
163 |
$STATUS_OK forbidden patterns |
166 |
$STATUS_OK forbidden patterns |
|
|
167 |
$STATUS_OK git manipulation |
164 |
$STATUS_OK pod |
168 |
$STATUS_OK pod |
165 |
$STATUS_KO spelling |
169 |
$STATUS_KO spelling |
166 |
$STATUS_OK valid |
170 |
$STATUS_OK valid |
Lines 168-173
EOL
Link Here
|
168 |
$STATUS_KO perl/i_fail_template_name.pl |
172 |
$STATUS_KO perl/i_fail_template_name.pl |
169 |
$STATUS_OK critic |
173 |
$STATUS_OK critic |
170 |
$STATUS_KO forbidden patterns |
174 |
$STATUS_KO forbidden patterns |
|
|
175 |
$STATUS_OK git manipulation |
171 |
$STATUS_OK pod |
176 |
$STATUS_OK pod |
172 |
$STATUS_OK spelling |
177 |
$STATUS_OK spelling |
173 |
$STATUS_OK valid |
178 |
$STATUS_OK valid |
Lines 175-180
EOL
Link Here
|
175 |
$STATUS_KO perl/i_fail_unused_declared_variables.pl |
180 |
$STATUS_KO perl/i_fail_unused_declared_variables.pl |
176 |
$STATUS_KO critic |
181 |
$STATUS_KO critic |
177 |
$STATUS_OK forbidden patterns |
182 |
$STATUS_OK forbidden patterns |
|
|
183 |
$STATUS_OK git manipulation |
178 |
$STATUS_OK pod |
184 |
$STATUS_OK pod |
179 |
$STATUS_OK spelling |
185 |
$STATUS_OK spelling |
180 |
$STATUS_OK valid |
186 |
$STATUS_OK valid |
Lines 182-187
EOL
Link Here
|
182 |
$STATUS_OK perl/i_m_ok.pl |
188 |
$STATUS_OK perl/i_m_ok.pl |
183 |
$STATUS_OK critic |
189 |
$STATUS_OK critic |
184 |
$STATUS_OK forbidden patterns |
190 |
$STATUS_OK forbidden patterns |
|
|
191 |
$STATUS_OK git manipulation |
185 |
$STATUS_OK pod |
192 |
$STATUS_OK pod |
186 |
$STATUS_OK spelling |
193 |
$STATUS_OK spelling |
187 |
$STATUS_OK valid |
194 |
$STATUS_OK valid |
Lines 189-236
EOL
Link Here
|
189 |
$STATUS_KO perl/updatedatabase.pl |
196 |
$STATUS_KO perl/updatedatabase.pl |
190 |
$STATUS_OK critic |
197 |
$STATUS_OK critic |
191 |
$STATUS_KO forbidden patterns |
198 |
$STATUS_KO forbidden patterns |
|
|
199 |
$STATUS_OK git manipulation |
192 |
$STATUS_OK pod |
200 |
$STATUS_OK pod |
193 |
$STATUS_OK spelling |
201 |
$STATUS_OK spelling |
194 |
$STATUS_OK valid |
202 |
$STATUS_OK valid |
195 |
|
203 |
|
196 |
$STATUS_KO sql/kohastructure.sql |
204 |
$STATUS_KO sql/kohastructure.sql |
197 |
$STATUS_KO charset_collate |
205 |
$STATUS_KO charset_collate |
|
|
206 |
$STATUS_OK git manipulation |
198 |
|
207 |
|
199 |
$STATUS_KO sql/sysprefs.sql |
208 |
$STATUS_KO sql/sysprefs.sql |
|
|
209 |
$STATUS_OK git manipulation |
200 |
$STATUS_KO sysprefs_order |
210 |
$STATUS_KO sysprefs_order |
201 |
|
211 |
|
202 |
$STATUS_KO tmpl/i_fail_patterns.tt |
212 |
$STATUS_KO tmpl/i_fail_patterns.tt |
203 |
$STATUS_KO forbidden patterns |
213 |
$STATUS_KO forbidden patterns |
|
|
214 |
$STATUS_OK git manipulation |
204 |
$STATUS_OK spelling |
215 |
$STATUS_OK spelling |
205 |
$STATUS_OK tt_valid |
216 |
$STATUS_OK tt_valid |
206 |
$STATUS_OK valid_template |
217 |
$STATUS_OK valid_template |
207 |
|
218 |
|
208 |
$STATUS_KO tmpl/i_fail_patterns_theme.tt |
219 |
$STATUS_KO tmpl/i_fail_patterns_theme.tt |
209 |
$STATUS_KO forbidden patterns |
220 |
$STATUS_KO forbidden patterns |
|
|
221 |
$STATUS_OK git manipulation |
210 |
$STATUS_OK spelling |
222 |
$STATUS_OK spelling |
211 |
$STATUS_OK tt_valid |
223 |
$STATUS_OK tt_valid |
212 |
$STATUS_OK valid_template |
224 |
$STATUS_OK valid_template |
213 |
|
225 |
|
214 |
$STATUS_KO tmpl/i_fail_patterns_tt_plugins.tt |
226 |
$STATUS_KO tmpl/i_fail_patterns_tt_plugins.tt |
215 |
$STATUS_KO forbidden patterns |
227 |
$STATUS_KO forbidden patterns |
|
|
228 |
$STATUS_OK git manipulation |
216 |
$STATUS_OK spelling |
229 |
$STATUS_OK spelling |
217 |
$STATUS_OK tt_valid |
230 |
$STATUS_OK tt_valid |
218 |
$STATUS_KO valid_template |
231 |
$STATUS_KO valid_template |
219 |
|
232 |
|
220 |
$STATUS_KO tmpl/i_fail_tt_valid.tt |
233 |
$STATUS_KO tmpl/i_fail_tt_valid.tt |
221 |
$STATUS_OK forbidden patterns |
234 |
$STATUS_OK forbidden patterns |
|
|
235 |
$STATUS_OK git manipulation |
222 |
$STATUS_OK spelling |
236 |
$STATUS_OK spelling |
223 |
$STATUS_KO tt_valid |
237 |
$STATUS_KO tt_valid |
224 |
$STATUS_OK valid_template |
238 |
$STATUS_OK valid_template |
225 |
|
239 |
|
226 |
$STATUS_KO tmpl/i_fail_valid_template.tt |
240 |
$STATUS_KO tmpl/i_fail_valid_template.tt |
227 |
$STATUS_OK forbidden patterns |
241 |
$STATUS_OK forbidden patterns |
|
|
242 |
$STATUS_OK git manipulation |
228 |
$STATUS_OK spelling |
243 |
$STATUS_OK spelling |
229 |
$STATUS_OK tt_valid |
244 |
$STATUS_OK tt_valid |
230 |
$STATUS_KO valid_template |
245 |
$STATUS_KO valid_template |
231 |
|
246 |
|
232 |
$STATUS_OK tmpl/i_will_be_correct_tt_valid.tt |
247 |
$STATUS_OK tmpl/i_will_be_correct_tt_valid.tt |
233 |
$STATUS_OK forbidden patterns |
248 |
$STATUS_OK forbidden patterns |
|
|
249 |
$STATUS_OK git manipulation |
234 |
$STATUS_OK spelling |
250 |
$STATUS_OK spelling |
235 |
$STATUS_OK tt_valid |
251 |
$STATUS_OK tt_valid |
236 |
$STATUS_OK valid_template |
252 |
$STATUS_OK valid_template |
237 |
- |
|
|