From bc70df09bb771b1a86a4759be94504510f28c09e Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Sat, 18 Aug 2001 16:27:46 +0000
Subject: add more

---
 tests/expr/basic | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

(limited to 'tests/expr')

diff --git a/tests/expr/basic b/tests/expr/basic
index 812422e3d..578857e5f 100755
--- a/tests/expr/basic
+++ b/tests/expr/basic
@@ -26,14 +26,17 @@ my $prog = $ENV{PROG} || die "$0: \$PROG not specified in environment\n";
 
 my @Tests =
     (
-     ['invalid-a', '3 + -', {ERR => "$prog: non-numeric argument\n"},
-      {EXIT => 1}],
-
      ['a', '5 + 6', {OUT => '11'}],
+     ['b', '5 - 6', {OUT => '-1'}],
+     ['c', '5 \* 6', {OUT => '30'}],
+     ['d', '100 / 6', {OUT => '16'}],
+     ['e', '100 % 6', {OUT => '4'}],
+
+     ['fail-a', '3 + -', {ERR => "$prog: non-numeric argument\n"},
+      {EXIT => 2}],
     );
 
-# Prepend the command line argument and append a newline to end
-# of each expected `OUT' string.
+# Append a newline to end of each expected `OUT' string.
 my $t;
 foreach $t (@Tests)
   {
@@ -41,7 +44,7 @@ foreach $t (@Tests)
     my $e;
     foreach $e (@$t)
       {
-	$e->{OUT} = "$arg1: $e->{OUT}\n"
+	$e->{OUT} .= "\n"
 	  if ref $e eq 'HASH' and exists $e->{OUT};
       }
   }
-- 
cgit v1.2.3-54-g00ecf