From: Karen Etheridge <ether@cpan.org>
Date: Sun, 23 Sep 2018 23:47:44 +0000 (-0700)
Subject: override exit() in test using MooseX::Getopt
X-Git-Tag: v5.90119~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=1b9bb64102dba58a73339289453e2c51acc097d9

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