Move the test for 078c425b721ea35d from fresh_perl.t to pat_rt_report.t

It happens to be the only test in fresh_perl.t that skips on miniperl.
pat_rt_report.t automatically skips on miniperl, and isn't exclusively for
bugs reported via RT.

diff --git a/t/re/pat_rt_report.t b/t/re/pat_rt_report.t
index c0a0ec7..7a03e64 100644 (file)
--- a/t/re/pat_rt_report.t
+++ b/t/re/pat_rt_report.t
@@ -7,7 +7,7 @@
 use strict;
 use warnings;
 use 5.010;
-
+use Config;
 
 sub run_tests;
 
@@ -22,7 +22,7 @@ BEGIN {
 }
 
 
-plan tests => 2520;  # Update this when adding/deleting tests.
+plan tests => 2521;  # Update this when adding/deleting tests.
 
 run_tests() unless caller;
 
@@ -1121,6 +1121,21 @@ sub run_tests {
         ok("\x{ff08}." =~ m/[\N{FULLWIDTH LEFT PARENTHESIS}]./ && $& eq "\x{ff08}.", $message);
     }
 
+SKIP: {
+    ######## "Segfault using HTML::Entities", Richard Jolly <richardjolly@mac.com>, <A3C7D27E-C9F4-11D8-B294-003065AE00B6@mac.com> in perl-unicode@perl.org
+
+    skip('Perl configured without Encode module', 1)
+       unless $Config{extensions} =~ / Encode /;
+
+    # Test case cut down by jhi
+    fresh_perl_like(<<'EOP', qr!Malformed UTF-8 character \(unexpected end of string\) in substitution \(s///\) at!, 'Segfault using HTML::Entities');
+use Encode;
+my $t = ord('A') == 193 ? "\xEA" : "\xE9";
+Encode::_utf8_on($t);
+$t =~ s/([^a])//ge;
+EOP
+    }
+
 } # End of sub run_tests
 
 1;

diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t
index 17cb082..a3874d9 100644 (file)
--- a/t/run/fresh_perl.t
+++ b/t/run/fresh_perl.t
@@ -804,23 +804,6 @@ print glob(q(./"TEST"));
 EXPECT
 ./"TEST"
 ./"TEST"
-######## "Segfault using HTML::Entities", Richard Jolly <richardjolly@mac.com>, <A3C7D27E-C9F4-11D8-B294-003065AE00B6@mac.com> in perl-unicode@perl.org
--lw
-# SKIP: use Config; $ENV{PERL_CORE_MINITEST} or " $Config::Config{'extensions'} " !~ m[ Encode ] # Perl configured without Encode module
-BEGIN {
-  eval 'require Encode';
-  if ($@) { exit 0 } # running minitest?
-}
-# Test case cut down by jhi
-$SIG{__WARN__} = sub { $@ = shift };
-use Encode;
-my $t = ord('A') == 193 ? "\xEA" : "\xE9";
-Encode::_utf8_on($t);
-$t =~ s/([^a])//ge;
-$@ =~ s/ at .*/ at/;
-print $@
-EXPECT
-Malformed UTF-8 character (unexpected end of string) in substitution (s///) at
 ######## "#75146: 27e904532594b7fb (fix for #23810) introduces a #regression"
 use strict;