summaryrefslogtreecommitdiff
path: root/tests/expr/basic
diff options
context:
space:
mode:
Diffstat (limited to 'tests/expr/basic')
-rwxr-xr-xtests/expr/basic15
1 files changed, 9 insertions, 6 deletions
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};
}
}