diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-10-19 14:42:56 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-10-19 14:42:56 (GMT) |
commit | 58583ac83fd364a825038d5dfcdaa7c75aca836b (patch) | |
tree | 6399c75e66f3afa69cee62d2969f7b24d9d75d1c /tests | |
parent | 7fa6ef0e9c110e29240b9b90518d3bf5c2d52e07 (diff) | |
download | tcl-58583ac83fd364a825038d5dfcdaa7c75aca836b.zip tcl-58583ac83fd364a825038d5dfcdaa7c75aca836b.tar.gz tcl-58583ac83fd364a825038d5dfcdaa7c75aca836b.tar.bz2 |
IntRep -> InternalRep. Internal changes only.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/cmdIL.test | 2 | ||||
-rw-r--r-- | tests/format.test | 4 | ||||
-rw-r--r-- | tests/io.test | 2 | ||||
-rw-r--r-- | tests/lset.test | 2 | ||||
-rw-r--r-- | tests/var.test | 2 |
5 files changed, 6 insertions, 6 deletions
diff --git a/tests/cmdIL.test b/tests/cmdIL.test index 06171e4..e16bfcf 100644 --- a/tests/cmdIL.test +++ b/tests/cmdIL.test @@ -760,7 +760,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 20006ef..43100bc 100644 --- a/tests/format.test +++ b/tests/format.test @@ -605,12 +605,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 a86527b..5d800a7 100644 --- a/tests/io.test +++ b/tests/io.test @@ -8624,7 +8624,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 a130fe9..0ce1c6d 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/var.test b/tests/var.test index 8bb55a2..968337b 100644 --- a/tests/var.test +++ b/tests/var.test @@ -1041,7 +1041,7 @@ test var-22.0 {leak in array element unset: Bug a3309d01db} -setup { rename getbytes {} 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 getbytes {} { lindex [split [memory info] \n] 3 3 } |