Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix up test quoting to work with Windows too.

Other tricks might be required for other operating systems.
  • Loading branch information...
commit a1fd6f065d0304dfeff66b1ae156be4e06e169bd 1 parent 66acc17
@pjcj authored
Showing with 4 additions and 4 deletions.
  1. +4 −4 t/internal/subprocess.t
8 t/internal/subprocess.t
@@ -12,10 +12,10 @@ else
plan tests => 2;
-my $cmd = "$^X -e 'print \"Hello World.\\n\"'";
+my $cmd = qq[$^X -e "print q(Hello, world.)"];
my $output = `$cmd 2>&1`;
-is($output, "Hello World.\n", 'simple test with perl -e');
+is($output, "Hello, world.", "simple test with perl -e");
-$cmd = "$^X -Mblib -MDevel::Cover=-silent,1 -e 'print \"Hello World.\\n\"'";
+$cmd = qq[$^X -Mblib -MDevel::Cover=-silent,1 -e "print q(Hello, world.)"];
$output = `$cmd 2>&1`;
-is($output, "Hello World.\n", 'test with perl -MDevel::Cover,-silent,1 -e');
+is($output, "Hello, world.", "test with perl -MDevel::Cover,-silent,1 -e");
Please sign in to comment.
Something went wrong with that request. Please try again.