From d98ac60ff6e52cf3ae55107b3b1db3b655c8f5bd Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Wed, 6 Sep 2023 18:28:40 +0000
Subject: Proposed fix for [fc87e3bddd]: get-3.4.1 fails in -singleproc testing

---
 tests/get.test | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/get.test b/tests/get.test
index 90d9035..0281760 100644
--- a/tests/get.test
+++ b/tests/get.test
@@ -18,6 +18,8 @@ if {"::tcltest" ni [namespace children]} {
 ::tcltest::loadTestedCommands
 catch [list package require -exact tcl::test [info patchlevel]]
 
+source [file join [file dirname [info script]] tcltests.tcl]
+
 testConstraint testgetint [llength [info commands testgetint]]
 testConstraint testdoubleobj [llength [info commands testdoubleobj]]
 testConstraint longIs64bit [expr {$tcl_platform(wordSize) == 8}]
@@ -115,7 +117,7 @@ test get-3.4.1 {Tcl_GetDouble with iffy numbers} {testdoubleobj deprecated} {
 	catch {testdoubleobj set 1 $x} x
 	set x
     }
-} {9.0}
+} {{expected floating-point number but got "09" (looks like invalid octal number)}}
 
 test get-3.5 {tcl_GetInt with numeric whitespace (i.e. '_')} testgetint {
     lmap x {0_0 " 1_0" "0_2 " " 3_3 " 14__23__32___4 " 0x0_a " 0b1111_1111 " 0_07 " " 0o1_0 " " 0b_1_0 " " 0_b1_0 " _33 42_ 0_x15 0_o17 0_d19 0x_b 0o_2_0 0o2__3_4} {
-- 
cgit v0.12


From 470946f7b90c5a85a2cedc5d4e8f5d2ca6be7026 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 6 Sep 2023 18:29:51 +0000
Subject: Be sure to define the "deprecated" constraint in order to use it.

---
 tests/get.test | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tests/get.test b/tests/get.test
index 90d9035..04f6ade 100644
--- a/tests/get.test
+++ b/tests/get.test
@@ -18,6 +18,8 @@ if {"::tcltest" ni [namespace children]} {
 ::tcltest::loadTestedCommands
 catch [list package require -exact tcl::test [info patchlevel]]
 
+source [file join [file dirname [info script]] tcltests.tcl]
+
 testConstraint testgetint [llength [info commands testgetint]]
 testConstraint testdoubleobj [llength [info commands testdoubleobj]]
 testConstraint longIs64bit [expr {$tcl_platform(wordSize) == 8}]
-- 
cgit v0.12


From 1ff39cda383cc80d3301719bb0bad1b2437af232 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 6 Sep 2023 18:33:26 +0000
Subject: Same issue in zlib.test

---
 tests/zlib.test | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tests/zlib.test b/tests/zlib.test
index 42d9e9c..7679102 100644
--- a/tests/zlib.test
+++ b/tests/zlib.test
@@ -15,6 +15,8 @@ if {"::tcltest" ni [namespace children]} {
     namespace import -force ::tcltest::*
 }
 
+source [file join [file dirname [info script]] tcltests.tcl]
+
 testConstraint zlib [llength [info commands zlib]]
 testConstraint recentZlib 0
 catch {
-- 
cgit v0.12