summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2013-03-19 10:16:12 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2013-03-19 10:16:12 (GMT)
commit1e752d8ad7755a862ef7cd5d45f3b157b566cd35 (patch)
tree60ade9938f072ec01b55e86dc3d55a04ba4a6390
parent0271027790063e391fe23ca6c20fb4d900e7ef6d (diff)
downloadtcl-1e752d8ad7755a862ef7cd5d45f3b157b566cd35.zip
tcl-1e752d8ad7755a862ef7cd5d45f3b157b566cd35.tar.gz
tcl-1e752d8ad7755a862ef7cd5d45f3b157b566cd35.tar.bz2
[Bug 3606390]: Fix isolation of test string-6.37.
-rw-r--r--tests/string.test6
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/string.test b/tests/string.test
index c3cfc3c..7a7a749 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -404,13 +404,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