From d9f0f7a35d71e67c3e7cd0032a3d2581f2d1fee3 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 18 Oct 2021 08:56:26 +0000
Subject: separate testConstraint nodep

---
 tests/info.test       | 1 -
 tests/regexp.test     | 1 -
 tests/regexpComp.test | 2 --
 tests/string.test     | 1 -
 tests/stringObj.test  | 1 -
 tests/tcltests.tcl    | 1 +
 6 files changed, 1 insertion(+), 6 deletions(-)

diff --git a/tests/info.test b/tests/info.test
index ced4435..19151d8 100644
--- a/tests/info.test
+++ b/tests/info.test
@@ -22,7 +22,6 @@ if {{::tcltest} ni [namespace children]} {
 ::tcltest::loadTestedCommands
 catch [list package require -exact tcl::test [info patchlevel]]
 testConstraint zlib [llength [info commands zlib]]
-testConstraint nodep [info exists tcl_precision]
 # Set up namespaces needed to test operation of "info args", "info body",
 # "info default", and "info procs" with imported procedures.
 
diff --git a/tests/regexp.test b/tests/regexp.test
index 6bed21e..bea530f 100644
--- a/tests/regexp.test
+++ b/tests/regexp.test
@@ -19,7 +19,6 @@ if {"::tcltest" ni [namespace children]} {
 unset -nocomplain foo
 
 testConstraint exec [llength [info commands exec]]
-testConstraint nodep [info exists tcl_precision]
 
 # Used for constraining memory leak tests
 testConstraint memory [llength [info commands memory]]
diff --git a/tests/regexpComp.test b/tests/regexpComp.test
index 1587c72..39d7a4c 100644
--- a/tests/regexpComp.test
+++ b/tests/regexpComp.test
@@ -16,8 +16,6 @@ if {"::tcltest" ni [namespace children]} {
     namespace import -force ::tcltest::*
 }
 
-testConstraint nodep [info exists tcl_precision]
-
 # Procedure to evaluate a script within a proc, to test compilation
 # functionality
 
diff --git a/tests/string.test b/tests/string.test
index 822899c..ececc31 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -33,7 +33,6 @@ testConstraint testindexobj [expr {[info commands testindexobj] ne {}}]
 testConstraint testevalex [expr {[info commands testevalex] ne {}}]
 testConstraint utf16 [expr {[string length \U010000] == 2}]
 testConstraint testbytestring   [llength [info commands testbytestring]]
-testConstraint nodep [info exists tcl_precision]
 
 # Used for constraining memory leak tests
 testConstraint memory [llength [info commands memory]]
diff --git a/tests/stringObj.test b/tests/stringObj.test
index 135830c..51d1e9b 100644
--- a/tests/stringObj.test
+++ b/tests/stringObj.test
@@ -24,7 +24,6 @@ testConstraint testobj [llength [info commands testobj]]
 testConstraint testbytestring [llength [info commands testbytestring]]
 testConstraint testdstring [llength [info commands testdstring]]
 testConstraint tip389 [expr {[string length \U010000] == 2}]
-testConstraint nodep [info exists tcl_precision]
 
 test stringObj-1.1 {string type registration} testobj {
     set t [testobj types]
diff --git a/tests/tcltests.tcl b/tests/tcltests.tcl
index a5d7044..cd9582e 100644
--- a/tests/tcltests.tcl
+++ b/tests/tcltests.tcl
@@ -3,6 +3,7 @@
 package require tcltest 2.5
 namespace import ::tcltest::*
 testConstraint exec          [llength [info commands exec]]
+testConstraint nodep [tcl::build-info no-deprecate]
 testConstraint debug [tcl::build-info debug]
 testConstraint purify [tcl::build-info purify]
 testConstraint debugpurify [
-- 
cgit v0.12