From 71aef03063d8a31440de0007b74be1e03f6cb450 Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Mon, 13 Nov 2017 18:52:38 -0600 Subject: Make perlbug.t forgiving about newlines. On VMS, pipes often introduce extra newlines, so the test infrastructure deduplicates them, which then makes it impossible to check for more than one. So just check for one or more. --- lib/perlbug.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/perlbug.t b/lib/perlbug.t index d4f1116972..bb6180bcfa 100644 --- a/lib/perlbug.t +++ b/lib/perlbug.t @@ -158,7 +158,7 @@ $result = runperl( progfile => $extracted_program, stderr => 1, args => ['-o'] ) like($result, qr/^\s*This program is designed/, "No leading error messages with help from invalid arg."); $result = runperl( progfile => $extracted_program, stderr => 1, args => ['--help'] ); # Invalid option -like($result, qr/^\s*perlbug version \d+\.\d+\n\nThis program is designed/, "No leading error messages with help from --help and version is displayed."); +like($result, qr/^\s*perlbug version \d+\.\d+\n+This program is designed/, "No leading error messages with help from --help and version is displayed."); $result = runperl( progfile => $extracted_program, stderr => 1, args => ['--version'] ); # Invalid option like($result, qr/^perlbug version \d+\.\d+\n$/, "No leading error messages with --version"); -- cgit v1.2.1