diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-09-09 16:07:25 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-09-09 16:07:25 (GMT) |
| commit | bcc2a1dc0bbfa47921b9dc71b14b2e221636a6a9 (patch) | |
| tree | 67b17c2ecae4c5d8f60c2b5b369b65a8ce9e9349 /tests/io.test | |
| parent | c149f8727514bf6a078b16a741714212f057d54b (diff) | |
| parent | f26a4a0948cbd769519cf1e79ea027511051b2bd (diff) | |
| download | tcl-bug_3418547.zip tcl-bug_3418547.tar.gz tcl-bug_3418547.tar.bz2 | |
merge trunkbug_3418547
Diffstat (limited to 'tests/io.test')
| -rw-r--r-- | tests/io.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/io.test b/tests/io.test index 2084991..6e7420d 100644 --- a/tests/io.test +++ b/tests/io.test @@ -8646,11 +8646,11 @@ test io-74.1 {[104f2885bb] improper cache validity check} -setup { interp create slave } -constraints testobj -body { teststringobj set 1 [string range $rfd 0 end] - read [teststringobj get 1] + read [teststringobj get 1] testobj duplicate 1 2 interp transfer {} $rfd slave catch {read [teststringobj get 1]} - read [teststringobj get 2] + read [teststringobj get 2] } -cleanup { interp delete slave testobj freeallvars |