* tests/test/test.pl (@Tests): Add a few test cases.
---
 tests/test/test.pl | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/tests/test/test.pl b/tests/test/test.pl
index 1de18ba7e..0f0a93d67 100755
--- a/tests/test/test.pl
+++ b/tests/test/test.pl
@@ -162,18 +162,26 @@ my @Tests =
   ['eq-5', qw(1 -eq 0), {EXIT=>1}],
   ['eq-6', "$limits->{UINTMAX_OFLOW} -eq 0", {EXIT=>1}],
   ['eq-7', qw(0 -eq ' 0 ')],
+  ['eq-8', qw(-l abc -eq 3)],
+  ['eq-9', qw(-l abc -eq 2), {EXIT=>1}],
 
   ['gt-1', qw(5 -gt 5), {EXIT=>1}],
   ['gt-2', qw(5 -gt 4)],
   ['gt-3', qw(4 -gt 5), {EXIT=>1}],
   ['gt-4', qw(-1 -gt -2)],
   ['gt-5', "$limits->{UINTMAX_OFLOW} -gt $limits->{INTMAX_UFLOW}"],
+  ['gt-6', qw(-l abc -gt 3), {EXIT=>1}],
+  ['gt-7', qw(-l abc -gt 2)],
+  ['gt-8', qw(2 -gt -l abc), {EXIT=>1}],
 
   ['lt-1', qw(5 -lt 5), {EXIT=>1}],
   ['lt-2', qw(5 -lt 4), {EXIT=>1}],
   ['lt-3', qw(4 -lt 5)],
   ['lt-4', qw(-1 -lt -2), {EXIT=>1}],
   ['lt-5', "$limits->{INTMAX_UFLOW} -lt $limits->{UINTMAX_OFLOW}"],
+  ['lt-6', qw(-l abc -lt 3), {EXIT=>1}],
+  ['lt-7', qw(-l abc -lt 2), {EXIT=>1}],
+  ['lt-8', qw(2 -lt -l abc)],
 
   ['inv-1', qw(0x0 -eq 00), {EXIT=>2},
    {ERR=>"$prog: invalid integer '0x0'\n"}],
-- 
2.54.0


Reply via email to