From cc2747afa84298fa9e583a491f772524708e24a7 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 20 Mar 2023 12:08:58 +0000
Subject: Add longIs64bit constraint to lseq-4.4 (because this isn't expected
 to work on 32-bit platforms). Remove some unused constraints.

---
 tests/compExpr-old.test | 3 ---
 tests/execute.test      | 1 -
 tests/expr-old.test     | 1 -
 tests/expr.test         | 1 -
 tests/lseq.test         | 3 ++-
 5 files changed, 2 insertions(+), 7 deletions(-)

diff --git a/tests/compExpr-old.test b/tests/compExpr-old.test
index 5f705c3..ec7eda1 100644
--- a/tests/compExpr-old.test
+++ b/tests/compExpr-old.test
@@ -78,9 +78,6 @@ proc testIEEE {} {
 }
 testConstraint ieeeFloatingPoint [testIEEE]
 
-testConstraint longIs32bit [expr {$tcl_platform(wordSize) == 4}]
-testConstraint longIs64bit [expr {$tcl_platform(wordSize) == 8}]
-
 # procedures used below
 
 proc put_hello_char {c} {
diff --git a/tests/execute.test b/tests/execute.test
index 6d8ce99..90af21c 100644
--- a/tests/execute.test
+++ b/tests/execute.test
@@ -34,7 +34,6 @@ testConstraint testobj [expr {
     && [llength [info commands teststringobj]]
 }]
 
-testConstraint longIs32bit [expr {$tcl_platform(wordSize) == 4}]
 testConstraint testexprlongobj [llength [info commands testexprlongobj]]
 
 
diff --git a/tests/expr-old.test b/tests/expr-old.test
index 7344e08..7274851 100644
--- a/tests/expr-old.test
+++ b/tests/expr-old.test
@@ -25,7 +25,6 @@ testConstraint testexprlong   [llength [info commands testexprlong]]
 testConstraint testexprdouble [llength [info commands testexprdouble]]
 testConstraint testexprstring [llength [info commands testexprstring]]
 testConstraint longIs32bit [expr {$tcl_platform(wordSize) == 4}]
-testConstraint longIs64bit [expr {$tcl_platform(wordSize) == 8}]
 
 # Big test for correct ordering of data in [expr]
 
diff --git a/tests/expr.test b/tests/expr.test
index a20aee1..15eff76 100644
--- a/tests/expr.test
+++ b/tests/expr.test
@@ -21,7 +21,6 @@ if {"::tcltest" ni [namespace children]} {
 # type is a 64 bit number on this machine.
 
 testConstraint longIs32bit [expr {$tcl_platform(wordSize) == 4}]
-testConstraint longIs64bit [expr {$tcl_platform(wordSize) == 8}]
 testConstraint wideIs64bit [expr {wide(0x8000000000000000) < 0}]
 
 # Big test for correct ordering of data in [expr]
diff --git a/tests/lseq.test b/tests/lseq.test
index 3f68da4..a280069 100644
--- a/tests/lseq.test
+++ b/tests/lseq.test
@@ -17,6 +17,7 @@ if {"::tcltest" ni [namespace children]} {
 testConstraint arithSeriesDouble 1
 testConstraint arithSeriesShimmer 1
 testConstraint arithSeriesShimmerOk 1
+testConstraint longIs64bit [expr {$tcl_platform(wordSize) == 8}]
 
 ## Arg errors
 test lseq-1.1 {error cases} -body {
@@ -482,7 +483,7 @@ test lseq-4.3 {TIP examples} {
 
 #
 # Ticket 9933cc4d88697f05976accebd31c1e3ba6efe9c6 - lseq corner case
-test lseq-4.4 {lseq corner case} -body {
+test lseq-4.4 {lseq corner case} -constraints longIs64bit -body {
     set tcmd {
 	set res {}
 	set s [catch {lindex [lseq 10 100] 0} e]
-- 
cgit v0.12