From ad1688055dea4f07cd4023d5e0301d97f7759151 Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Fri, 9 Sep 2022 22:53:07 +0100
Subject: [PATCH] Correct TCL integers testcase for 32-bit platforms

---
 Examples/test-suite/tcl/integers_runme.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Examples/test-suite/tcl/integers_runme.tcl b/Examples/test-suite/tcl/integers_runme.tcl
index c04dd1e9e..261c4c289 100644
--- a/Examples/test-suite/tcl/integers_runme.tcl
+++ b/Examples/test-suite/tcl/integers_runme.tcl
@@ -2,12 +2,14 @@ if [ catch { load ./integers[info sharedlibextension] integers} err_msg ] {
 	puts stderr "Could not load shared object:\n$err_msg"
 }
 
-set val 3902408827
+# 32-bit long max
+set val 2147483647
 if {[signed_long_identity $val] != $val} {
     puts stderr "Runtime test 1 failed"
     exit 1
 }
 
+set val 3902408827
 if {[unsigned_long_identity $val] != $val} {
     puts stderr "Runtime test 2 failed"
     exit 1