From 11cf5cbdccee0f11f5a35e171ca78a767e18773c Mon Sep 17 00:00:00 2001
From: JJ Lu <275955589@qq.com>
Date: Sun, 14 May 2023 14:04:33 +0800
Subject: Fix bug: LPOS RANK LONG_ MIN causes overflow (#12167)

Limit the range of RANK to -LONG_ MAX ~ LONG_ MAX.
Without this limit, passing -9223372036854775808 would effectively
be the same as passing -1.
---
 tests/unit/type/list.tcl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'tests')

diff --git a/tests/unit/type/list.tcl b/tests/unit/type/list.tcl
index 1e1ba4edc..a57e5df3e 100644
--- a/tests/unit/type/list.tcl
+++ b/tests/unit/type/list.tcl
@@ -464,6 +464,7 @@ foreach {type large} [array get largevalue] {
         assert {[r LPOS mylist c RANK -1] == 7}
         assert {[r LPOS mylist c RANK -2] == 6}
         assert_error "*RANK can't be zero: use 1 to start from the first match, 2 from the second ... or use negative to start*" {r LPOS mylist c RANK 0}
+        assert_error "*value is out of range*" {r LPOS mylist c RANK -9223372036854775808}
     }
 
     test {LPOS COUNT option} {
-- 
cgit v1.2.1