Avoid extra newlines on VMS in t/opbasic/arith.t

Separate print statements through a pipe with autoflush on cause
extra newlines due a bug in the VMS pipe implementation, and were
causing this test to fail with an "unexpected output" message. So
consolidate into a single print statement.

1 files changed, 10 insertions, 8 deletions

diff --git a/t/opbasic/arith.t b/t/opbasic/arith.t
index 625f4c0e16..96b243b2c5 100644
--- a/t/opbasic/arith.t
+++ b/t/opbasic/arith.t
@@ -13,28 +13,30 @@ BEGIN {
 print "1..186\n";
 
 sub try ($$$) {
-   print +($_[1] ? "ok" : "not ok"), " $_[0] - $_[2]\n";
+   print +($_[1] ? "ok" : "not ok") . " $_[0] - $_[2]\n";
 }
 sub tryeq ($$$$) {
+  my $status;
   if ($_[1] == $_[2]) {
-    print "ok $_[0]";
+    $status = "ok $_[0]";
   } else {
-    print "not ok $_[0] # $_[1] != $_[2]";
+    $status = "not ok $_[0] # $_[1] != $_[2]";
   }
-  print " - $_[3]\n";
+  print "$status - $_[3]\n";
 }
 sub tryeq_sloppy ($$$$) {
+  my $status;
   if ($_[1] == $_[2]) {
-    print "ok $_[0]";
+    $status = "ok $_[0]";
   } else {
     my $error = abs (($_[1] - $_[2]) / $_[1]);
     if ($error < 1e-9) {
-      print "ok $_[0] # $_[1] is close to $_[2], \$^O eq $^O";
+      $status = "ok $_[0] # $_[1] is close to $_[2], \$^O eq $^O";
     } else {
-      print "not ok $_[0] # $_[1] != $_[2]";
+      $status = "not ok $_[0] # $_[1] != $_[2]";
     }
   }
-  print " - $_[3]\n";
+  print "$status - $_[3]\n";
 }
 
 my $T = 1;