diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-03-07 22:08:05 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-03-07 22:08:05 +0000 |
commit | 453466ce2f09167e70fd58c95be801ad111eabe5 (patch) | |
tree | 295f94256811a76cc5af37a0113f85cb18323497 /t/run | |
parent | d3d1232e4b14141281f4266718249fa2750cd14e (diff) | |
download | perl-453466ce2f09167e70fd58c95be801ad111eabe5.tar.gz |
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.
Diffstat (limited to 't/run')
-rw-r--r-- | t/run/fresh_perl.t | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t index 17cb0822e7..a3874d96a5 100644 --- 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; |