From e7c416995e6a3981e4f32640a86fd24b124f9480 Mon Sep 17 00:00:00 2001 From: apnadkarni Date: Wed, 22 Mar 2023 02:39:10 +0000 Subject: Fix longIs64Bit->has64BitLengths else test will not run on 64-bit Wind --- tests/lseq.test | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/tests/lseq.test b/tests/lseq.test index a280069..1dff72d 100644 --- a/tests/lseq.test +++ b/tests/lseq.test @@ -17,7 +17,7 @@ if {"::tcltest" ni [namespace children]} { testConstraint arithSeriesDouble 1 testConstraint arithSeriesShimmer 1 testConstraint arithSeriesShimmerOk 1 -testConstraint longIs64bit [expr {$tcl_platform(wordSize) == 8}] +testConstraint has64BitLengths [expr {$tcl_platform(pointerSize) == 8}] ## Arg errors test lseq-1.1 {error cases} -body { @@ -483,7 +483,7 @@ test lseq-4.3 {TIP examples} { # # Ticket 9933cc4d88697f05976accebd31c1e3ba6efe9c6 - lseq corner case -test lseq-4.4 {lseq corner case} -constraints longIs64bit -body { +test lseq-4.4 {lseq corner case} -constraints has64BitLengths -body { set tcmd { set res {} set s [catch {lindex [lseq 10 100] 0} e] @@ -507,6 +507,9 @@ test lseq-4.4 {lseq corner case} -constraints longIs64bit -body { test lseq-4.5 {lindex off by one} -body { lappend res [eval {lindex [lseq 1 4] end}] lappend res [eval {lindex [lseq 1 4] end-1}] +} -setup { + # Since 4.3 does not clean up and 4.4 may not run under constraint + set res {} } -cleanup { unset res } -result {4 3} -- cgit v0.12