summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2013-03-19 10:18:18 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2013-03-19 10:18:18 (GMT)
commit1fdd38f7039a6f414008a01436898a276c4e835d (patch)
treee09bbaf60c01d5f95ce073968f11658d9b16602c /tests
parentcb78374b81fedc16cc39b4c0a63d30cee6ba844c (diff)
parent1e752d8ad7755a862ef7cd5d45f3b157b566cd35 (diff)
downloadtcl-1fdd38f7039a6f414008a01436898a276c4e835d.zip
tcl-1fdd38f7039a6f414008a01436898a276c4e835d.tar.gz
tcl-1fdd38f7039a6f414008a01436898a276c4e835d.tar.bz2
[Bug 3606390]: Fix isolation of test string-6.37.
Diffstat (limited to 'tests')
-rw-r--r--tests/string.test6
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/string.test b/tests/string.test
index f558d30..740cdc6 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -408,13 +408,15 @@ test string-6.35 {string is double, false} {
test string-6.36 {string is double, false} {
list [string is double -fail var "\n"] $var
} {0 0}
-test string-6.37 {string is double, false on int overflow} {
+test string-6.37 {string is double, false on int overflow} -setup {
+ set var priorValue
+} -body {
# Make it the largest int recognizable, with one more digit for overflow
# Since bignums arrived in Tcl 8.5, the sense of this test changed.
# Now integer values that exceed native limits become bignums, and
# bignums can convert to doubles without error.
list [string is double -fail var [largest_int]0] $var
-} {1 0}
+} -result {1 priorValue}
# string-6.38 removed, underflow on input is no longer an error.
test string-6.39 {string is double, false} {
# This test is non-portable because IRIX thinks