Value of [ThreadVar -index] depends on static/shared/gcc build (might…

… be 2, 4 or 6). So make testcase independant from that.
tcltk · Jan 24, 2025 · 33d98e5 · 33d98e5
1 parent b41e9d2
commit 33d98e5
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/tests/memorymodule.test b/tests/memorymodule.test
@@ -66,17 +66,17 @@ test memorymodule-2.2 {nexted exception} -constraints memorymoduletest -body {
     NestedException
 } -result 1
 
-test memorymodule-3.0 {_tls_index} -constraints {memorymoduletest thread msvc} -body {
+test memorymodule-3.0 {_tls_index} -constraints {memorymoduletest thread} -body {
     set t1 [thread::create];
     thread::preserve $t1
     thread::send $t1 {
 	lappend auto_path [file join [zipfs root] memorymoduletest]
 	package require threadvartest
-	return [list [ThreadVar -index] [ThreadVar -start] [ThreadVar -end]]
+	return [list [expr {[ThreadVar -index] > 0}] [ThreadVar -start] [ThreadVar -end]]
     } result
     thread::release $t1
-    lappend result [ThreadVar -index] [ThreadVar -start] [ThreadVar -end]
-} -result {4 0 0 4 0 0}
+    lappend result [expr {[ThreadVar -index] > 0}] [ThreadVar -start] [ThreadVar -end]
+} -result {1 0 0 1 0 0}
 
 # cleanup
 ::tcltest::cleanupTests