4 if ( $ENV{PERL_CORE} ) {
15 use App::Prove::State;
18 my $pfx = $ENV{PERL_CORE} ? '../ext/Test/Harness/' : '';
19 return map {"$pfx$_"} @_;
28 't/compat/inc_taint.t',
34 { options => 'failed',
37 't/compat/inc_taint.t',
41 { options => 'passed',
55 't/compat/inc_taint.t',
76 { options => 'adrian',
83 't/compat/inc_taint.t',
87 { options => 'failed,passed',
90 't/compat/inc_taint.t',
98 { options => [ 'failed', 'passed' ],
101 't/compat/inc_taint.t',
102 't/compat/version.t',
104 't/compat/failure.t',
106 't/yamlish-writer.t',
110 get_tests_args => [],
112 't/yamlish-writer.t',
114 't/compat/inc_taint.t',
115 't/compat/version.t',
116 't/compat/failure.t',
121 get_tests_args => [],
124 't/compat/failure.t',
125 't/compat/version.t',
126 't/compat/inc_taint.t',
128 't/yamlish-writer.t',
132 get_tests_args => [],
135 't/compat/inc_taint.t',
136 't/compat/version.t',
137 't/yamlish-writer.t',
138 't/compat/failure.t',
143 get_tests_args => [],
146 't/compat/failure.t',
147 't/yamlish-writer.t',
148 't/compat/version.t',
149 't/compat/inc_taint.t',
155 plan tests => @schedule * 2;
157 for my $test (@schedule) {
158 my $state = App::Prove::State->new;
159 isa_ok $state, 'App::Prove::State';
161 my $desc = $test->{options};
164 $state->{_} = get_state();
165 my $options = $test->{options};
166 $options = [$options] unless 'ARRAY' eq ref $options;
167 $state->apply_switch(@$options);
169 my @got = $state->get_tests( @{ $test->{get_tests_args} } );
170 my @expect = mn( @{ $test->{expect} } );
171 unless ( is_deeply \@got, \@expect, "$desc: order OK" ) {
173 diag( Dumper( { got => \@got, want => \@expect } ) );
179 'generation' => '51',
181 mn('t/compat/failure.t') => {
182 'last_result' => '0',
183 'last_run_time' => '1196371471.57738',
184 'last_pass_time' => '1196371471.57738',
185 'total_passes' => '48',
190 'mtime' => 1196285623,
192 mn('t/yamlish-writer.t') => {
193 'last_result' => '0',
194 'last_run_time' => '1196371480.5761',
195 'last_pass_time' => '1196371480.5761',
196 'last_fail_time' => '1196368609',
197 'total_passes' => '41',
200 'elapsed' => 12.2983,
202 'mtime' => 1196285400,
204 mn('t/compat/env.t') => {
205 'last_result' => '0',
206 'last_run_time' => '1196371471.42967',
207 'last_pass_time' => '1196371471.42967',
208 'last_fail_time' => '1196368608',
209 'total_passes' => '48',
214 'mtime' => 1196285739,
216 mn('t/compat/version.t') => {
217 'last_result' => '2',
218 'last_run_time' => '1196371472.96476',
219 'last_pass_time' => '1196371472.96476',
220 'last_fail_time' => '1196368609',
221 'total_passes' => '47',
226 'mtime' => 1196285239,
228 mn('t/compat/inc_taint.t') => {
229 'last_result' => '3',
230 'last_run_time' => '1196371471.89682',
231 'last_pass_time' => '1196371471.89682',
232 'total_passes' => '47',
237 'mtime' => 1196185639,
239 mn('t/source.t') => {
240 'last_result' => '0',
241 'last_run_time' => '1196371479.72508',
242 'last_pass_time' => '1196371479.72508',
243 'total_passes' => '41',
248 'mtime' => 1186285639,