Add newline to new switchd test for VMS.
authorCraig A. Berry <craigberry@mac.com>
Thu, 19 Sep 2013 21:17:00 +0000 (16:17 -0500)
committerCraig A. Berry <craigberry@mac.com>
Thu, 19 Sep 2013 21:27:30 +0000 (16:27 -0500)
On VMS, you're going to get a newline at EOF willy nilly, which
was making the expected output fail to match the actual output.
The simplest solution is just to put an explicit newline on the
print statement, which yields the same result everywhere.

Follow-up to 261cbad16f5ed8.

t/run/switchd.t

index e71de68..e66a17f 100644 (file)
@@ -205,9 +205,9 @@ like(
 is(
   runperl(
    switches => [ '-Ilib', '-d:switchd_goto' ],
-   prog => 'sub baz { print qq|hello;| } sub foo { goto &baz } foo()',
+   prog => 'sub baz { print qq|hello;\n| } sub foo { goto &baz } foo()',
    stderr => 1,
   ),
-  "goto<main::baz>;hello;",
+  "goto<main::baz>;hello;\n",
   "DB::goto"
 );