In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/5b3e7d5fab3ee4efee810acd1250c5438259bc76?hp=74665a894c3bc3da81a3d585a9c17a95b871a3bc>
- Log ----------------------------------------------------------------- commit 5b3e7d5fab3ee4efee810acd1250c5438259bc76 Author: Craig A. Berry <[email protected]> Date: Thu Jul 28 14:08:15 2016 -0500 Make switchDx.t more forgiving about newlines. On VMS, the test suite collapses multiple newlines into one in order to work around a bug in the pipe implementation, so the test needs to allow for that. ----------------------------------------------------------------------- Summary of changes: t/run/switchDx.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/run/switchDx.t b/t/run/switchDx.t index acb2995..43f31bf 100644 --- a/t/run/switchDx.t +++ b/t/run/switchDx.t @@ -26,7 +26,7 @@ END { { stderr => 1 }, "No perlio debug file without -Di..."); ok(!-e $perlio_log, "...no perlio.txt found"); - fresh_perl_is("print qq(hello\n)", "\nEXECUTING...\n\nhello\n", + fresh_perl_like("print qq(hello\n)", qr/\nEXECUTING...\n{1,2}hello\n?/, { stderr => 1, switches => [ "-Di" ] }, "Perlio debug file with both -Di and PERLIO_DEBUG..."); ok(-e $perlio_log, "... perlio debugging file found with -Di and PERLIO_DEBUG"); -- Perl5 Master Repository
