|
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 |
- |
|
|