diff options
| author | Matthew Somerville <matthew-github@dracos.co.uk> | 2019-05-14 10:22:15 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2019-05-14 10:22:15 +0100 |
| commit | 345a03f5ad2d71948ca4383682a5549f3053486b (patch) | |
| tree | 8b156f90f383c5987138f115e6f7437075ad04bb /perllib/FixMyStreet/TestAppProve.pm | |
| parent | 1a7835da6ee96d0287c4523110ebb01f662cafd6 (diff) | |
| parent | f7873a97d3be13251da30f12705c3dafa5468995 (diff) | |
Merge in upgraded Catalyst branch.
Diffstat (limited to 'perllib/FixMyStreet/TestAppProve.pm')
| -rw-r--r-- | perllib/FixMyStreet/TestAppProve.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/TestAppProve.pm b/perllib/FixMyStreet/TestAppProve.pm index 0329bcfde..ec245e72c 100644 --- a/perllib/FixMyStreet/TestAppProve.pm +++ b/perllib/FixMyStreet/TestAppProve.pm @@ -104,6 +104,8 @@ sub run { my $config_out = $class->get_config({ config_file => $config_file, db_config_file => $db_config_file }); local $ENV{FMS_OVERRIDE_CONFIG} = $config_out; + # Don't warn over use of Regex dispatch type + local $ENV{CATALYST_NOWARN_DEPRECATE} = 1; my $prove = App::Prove->new; $prove->process_args(@ARGV); @@ -111,7 +113,7 @@ sub run { # If no arguments, test everything $prove->argv(['t']) unless @{$prove->argv}; # verbose if we have a single file - $prove->verbose(1) if @{$prove->argv} and -f $prove->argv->[-1]; + $prove->verbose(1) if @{$prove->argv} and -f $prove->argv->[-1] && !$ENV{CI}; # we always want to recurse $prove->recurse(1); # we always want to save state |