override exit() in test using MooseX::Getopt

0.73 moved the exit() call outside of print_usage_text, so the test's
overridden sub no longer prevented it from being called

diff --git a/Changes b/Changes
index 8b19fb0..e25770d 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 # This file documents the revision history for Perl extension Catalyst.
 
+  - fix test for changes in MooseX::Getopt 0.73 (RT#127050)
+
 5.90118 - 2018-05-01
   - fix handling of fragments in uri_for when path is an unblessed string (GH#160)
   - ensure catalyst.pl is included with dist

diff --git a/t/aggregate/unit_core_script_help.t b/t/aggregate/unit_core_script_help.t
index e2fc4a2..38eb5ea 100644 (file)
--- a/t/aggregate/unit_core_script_help.t
+++ b/t/aggregate/unit_core_script_help.t
@@ -6,6 +6,9 @@ use Test::Fatal;
 use FindBin qw/$Bin/;
 use lib "$Bin/../lib";
 
+no warnings 'once';
+*CORE::GLOBAL::exit = sub {};
+
 {
     package TestHelpScript;
     use Moose;