Rename "testConstraint nodep" to "testConstraint deprecated", making it the same as in Tk

6 files changed, 12 insertions, 12 deletions

diff --git a/tests/info.test b/tests/info.test
index 46f85e7..c17588f 100644
--- a/tests/info.test
+++ b/tests/info.test
@@ -101,7 +101,7 @@ test info-2.5 {info body option, returning bytecompiled bodies} -body {
 # Fix for problem tested for in info-2.5 caused problems when
 # procedure body had no string rep (i.e. was not yet bytecode)
 # causing an empty string to be returned [Bug #545644]
-test info-2.6 {info body option, returning list bodies} nodep {
+test info-2.6 {info body option, returning list bodies} deprecated {
     proc foo args [list subst bar]
     list [string bytelength [info body foo]] \
 	    [foo; string bytelength [info body foo]]
diff --git a/tests/regexp.test b/tests/regexp.test
index a44f2e3..f0f05a0 100644
--- a/tests/regexp.test
+++ b/tests/regexp.test
@@ -765,7 +765,7 @@ test regexp-19.2 {regsub null replacement} {
     string equal $result $expected
 } 1
 
-test regexp-20.1 {regsub shared object shimmering} -constraints nodep -body {
+test regexp-20.1 {regsub shared object shimmering} -constraints deprecated -body {
     # Bug #461322
     set a abcdefghijklmnopqurstuvwxyz
     set b $a
diff --git a/tests/regexpComp.test b/tests/regexpComp.test
index e78c0df..a556b7a 100644
--- a/tests/regexpComp.test
+++ b/tests/regexpComp.test
@@ -793,7 +793,7 @@ test regexpComp-19.1 {regsub null replacement} {
     }
 } "\0a\0hel\0a\0lo\0a\0 14"
 
-test regexpComp-20.1 {regsub shared object shimmering} nodep {
+test regexpComp-20.1 {regsub shared object shimmering} deprecated {
     evalInProc {
 	# Bug #461322
 	set a abcdefghijklmnopqurstuvwxyz
diff --git a/tests/string.test b/tests/string.test
index 6750a5c..7da50e9 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -1036,16 +1036,16 @@ test string-7.16.$noComp {string last, start index} {
     run {string last Üa ÜadÜad end-1}
 } 3
 
-test string-8.1.$noComp {string bytelength} nodep {
+test string-8.1.$noComp {string bytelength} deprecated {
     list [catch {run {string bytelength}} msg] $msg
 } {1 {wrong # args: should be "string bytelength string"}}
-test string-8.2.$noComp {string bytelength} nodep {
+test string-8.2.$noComp {string bytelength} deprecated {
     list [catch {run {string bytelength a b}} msg] $msg
 } {1 {wrong # args: should be "string bytelength string"}}
-test string-8.3.$noComp {string bytelength} nodep {
+test string-8.3.$noComp {string bytelength} deprecated {
     run {string bytelength "\xC7"}
 } 2
-test string-8.4.$noComp {string bytelength} nodep {
+test string-8.4.$noComp {string bytelength} deprecated {
     run {string b ""}
 } 0
 
diff --git a/tests/stringObj.test b/tests/stringObj.test
index 4402185..abe02b2 100644
--- a/tests/stringObj.test
+++ b/tests/stringObj.test
@@ -455,19 +455,19 @@ test stringObj-15.4 {Tcl_Append*ToObj: self appends} testobj {
     teststringobj set 1 foo
     teststringobj appendself 1 3
 } foo
-test stringObj-15.5 {Tcl_Append*ToObj: self appends} {testobj tip389 nodep} {
+test stringObj-15.5 {Tcl_Append*ToObj: self appends} {testobj tip389 deprecated} {
     teststringobj set 1 foo
     teststringobj appendself2 1 0
 } foofoo
-test stringObj-15.6 {Tcl_Append*ToObj: self appends} {testobj tip389 nodep} {
+test stringObj-15.6 {Tcl_Append*ToObj: self appends} {testobj tip389 deprecated} {
     teststringobj set 1 foo
     teststringobj appendself2 1 1
 } foooo
-test stringObj-15.7 {Tcl_Append*ToObj: self appends} {testobj tip389 nodep} {
+test stringObj-15.7 {Tcl_Append*ToObj: self appends} {testobj tip389 deprecated} {
     teststringobj set 1 foo
     teststringobj appendself2 1 2
 } fooo
-test stringObj-15.8 {Tcl_Append*ToObj: self appends} {testobj tip389 nodep} {
+test stringObj-15.8 {Tcl_Append*ToObj: self appends} {testobj tip389 deprecated} {
     teststringobj set 1 foo
     teststringobj appendself2 1 3
 } foo
diff --git a/tests/tcltests.tcl b/tests/tcltests.tcl
index 61076f5..cc0d6a7 100644
--- a/tests/tcltests.tcl
+++ b/tests/tcltests.tcl
@@ -3,7 +3,7 @@
 package require tcltest 2.5
 namespace import ::tcltest::*
 testConstraint exec [llength [info commands exec]]
-testConstraint nodep [expr {![tcl::build-info no-deprecate]}]
+testConstraint deprecated [expr {![tcl::build-info no-deprecate]}]
 testConstraint debug [tcl::build-info debug]
 testConstraint purify [tcl::build-info purify]
 testConstraint debugpurify [