diff options
Diffstat (limited to 'perllib')
| -rw-r--r-- | perllib/FixMyStreet/TestAppProve.pm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/perllib/FixMyStreet/TestAppProve.pm b/perllib/FixMyStreet/TestAppProve.pm index 5298d225f..806608b8b 100644 --- a/perllib/FixMyStreet/TestAppProve.pm +++ b/perllib/FixMyStreet/TestAppProve.pm @@ -91,18 +91,18 @@ sub run { local $ENV{FMS_OVERRIDE_CONFIG} = $config_out; - # If no arguments, test everything - unshift @ARGV, 't' unless @ARGV; + my $prove = App::Prove->new; + $prove->process_args(@ARGV); + # If no arguments, test everything + $prove->argv(['t']) unless @{$prove->argv}; # verbose if we have a single file - unshift @ARGV, '--verbose' if @ARGV and -f $ARGV[-1]; + $prove->verbose(1) if @{$prove->argv} and -f $prove->argv->[-1]; + # we always want to recurse + $prove->recurse(1); + # we always want to save state + $prove->state([ @state, 'save' ]); - unshift @ARGV, - '--recurse', # we always want to recurse - '--state', (join ',' => @state, 'save'); # we always want to save state - - my $prove = App::Prove->new; - $prove->process_args(@ARGV); $prove->run; } |