summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2021-10-19 14:48:41 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2021-10-19 14:48:41 (GMT)
commit2782e3cbc8100d8e9b90bed71c15d1734655bc7b (patch)
tree2d1f3299b775048f94411db3b7e149f7bff3409d /tests
parenta16e3826c85c0f5ce5f81c35047af27189acd2f7 (diff)
parent49260f096b04c4fadf36fe575d1b43a4736e2ef2 (diff)
downloadtcl-2782e3cbc8100d8e9b90bed71c15d1734655bc7b.zip
tcl-2782e3cbc8100d8e9b90bed71c15d1734655bc7b.tar.gz
tcl-2782e3cbc8100d8e9b90bed71c15d1734655bc7b.tar.bz2
Merge 8.7
Diffstat (limited to 'tests')
-rw-r--r--tests/cmdIL.test2
-rw-r--r--tests/format.test4
-rw-r--r--tests/io.test2
-rw-r--r--tests/lset.test2
-rw-r--r--tests/regexp.test2
-rw-r--r--tests/string.test1
-rw-r--r--tests/tcltests.tcl1
-rw-r--r--tests/var.test2
8 files changed, 9 insertions, 7 deletions
diff --git a/tests/cmdIL.test b/tests/cmdIL.test
index 063750c..5a68925 100644
--- a/tests/cmdIL.test
+++ b/tests/cmdIL.test
@@ -776,7 +776,7 @@ test cmdIL-7.6 {lreverse command - unshared object [Bug 1672585]} {
test cmdIL-7.7 {lreverse command - empty object [Bug 1876793]} {
lreverse [list]
} {}
-test cmdIL-7.8 {lreverse command - shared intrep [Bug 1675044]} -setup {
+test cmdIL-7.8 {lreverse command - shared internalrep [Bug 1675044]} -setup {
teststringobj set 1 {1 2 3}
testobj convert 1 list
testobj duplicate 1 2
diff --git a/tests/format.test b/tests/format.test
index d990fb6..f6d9cfd 100644
--- a/tests/format.test
+++ b/tests/format.test
@@ -620,12 +620,12 @@ test format-19.4.2 {Bug d498578df4: width overflow should cause limit exceeded}
} -returnCodes error -result "max size for a Tcl value exceeded"
# Note that this test may fail in future versions
-test format-20.1 {Bug 2932421: plain %s caused intrep change of args} -body {
+test format-20.1 {Bug 2932421: plain %s caused internalrep change of args} -body {
set x [dict create a b c d]
format %s $x
# After this, obj in $x should be a dict
# We are testing to make sure it has not been shimmered to a
- # different intrep when that is not necessary.
+ # different internalrep when that is not necessary.
# Whether or not there is a string rep - we should not care!
tcl::unsupported::representation $x
} -match glob -result {value is a dict *}
diff --git a/tests/io.test b/tests/io.test
index e26c97f..0ef3422 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -8752,7 +8752,7 @@ test io-73.1 {channel Tcl_Obj SetChannelFromAny} {} {
} {1}
test io-73.2 {channel Tcl_Obj SetChannelFromAny, bug 2407783} -setup {
- # Invalidate intrep of 'channel' Tcl_Obj when transiting between interpreters.
+ # Invalidate internalrep of 'channel' Tcl_Obj when transiting between interpreters.
set f [open [info script] r]
} -body {
interp create foo
diff --git a/tests/lset.test b/tests/lset.test
index 5093369..72d68ec 100644
--- a/tests/lset.test
+++ b/tests/lset.test
@@ -412,7 +412,7 @@ test lset-14.2 {lset, not compiled, flat args, is string rep preserved?} testeva
} "{ { 1 2 } { 3 4 } } { 3 4 }"
testConstraint testobj [llength [info commands testobj]]
-test lset-15.1 {lset: shared intrep [Bug 1677512]} -setup {
+test lset-15.1 {lset: shared internalrep [Bug 1677512]} -setup {
teststringobj set 1 {{1 2} 3}
testobj convert 1 list
testobj duplicate 1 2
diff --git a/tests/regexp.test b/tests/regexp.test
index c0db137..2737583 100644
--- a/tests/regexp.test
+++ b/tests/regexp.test
@@ -17,7 +17,7 @@ if {"::tcltest" ni [namespace children]} {
}
unset -nocomplain foo
-
+package require tcltests
testConstraint exec [llength [info commands exec]]
# Used for constraining memory leak tests
diff --git a/tests/string.test b/tests/string.test
index dd8da3f..d5a4815 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -19,6 +19,7 @@ if {"::tcltest" ni [namespace children]} {
::tcltest::loadTestedCommands
catch [list package require -exact tcl::test [info patchlevel]]
+package require tcltests
# Helper commands to test various optimizations, code paths, and special cases.
proc makeByteArray {s} {binary format a* $s}
diff --git a/tests/tcltests.tcl b/tests/tcltests.tcl
index 1ee37d3..f7407b4 100644
--- a/tests/tcltests.tcl
+++ b/tests/tcltests.tcl
@@ -15,6 +15,7 @@ if {[namespace which testdebug] ne {}} {
[testConstraint purify]
}]
}
+testConstraint nodep [info exists tcl_precision]
testConstraint fcopy [llength [info commands fcopy]]
testConstraint fileevent [llength [info commands fileevent]]
testConstraint thread [
diff --git a/tests/var.test b/tests/var.test
index defd743..864bec8 100644
--- a/tests/var.test
+++ b/tests/var.test
@@ -1039,7 +1039,7 @@ test var-22.0 {leak in array element unset: Bug a3309d01db} -setup {
array unset A
rename doit {}
} -result 0
-test var-22.1 {leak in localVarName intrep: Bug 80304238ac} -setup {
+test var-22.1 {leak in localVarName internalrep: Bug 80304238ac} -setup {
proc doit {} {
interp create child
child eval {