summaryrefslogtreecommitdiffstats
path: root/tests/expr-old.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2017-11-20 16:01:05 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2017-11-20 16:01:05 (GMT)
commit82877a8aa3a3014d32dc21aa5309d2ae0b2a1aa0 (patch)
tree1be1702aae5457abf45fee50f4eb540c7b5d1383 /tests/expr-old.test
parentb7e5592df1f6b8d92935251cb1616e10b656ac07 (diff)
parenta1bc5b8a2b3fbc46b0207124137c9b2a5a8cced1 (diff)
downloadtcl-82877a8aa3a3014d32dc21aa5309d2ae0b2a1aa0.zip
tcl-82877a8aa3a3014d32dc21aa5309d2ae0b2a1aa0.tar.gz
tcl-82877a8aa3a3014d32dc21aa5309d2ae0b2a1aa0.tar.bz2
merge core-8-branch. Deprecate support for "string bytelength"
Diffstat (limited to 'tests/expr-old.test')
-rw-r--r--tests/expr-old.test20
1 files changed, 16 insertions, 4 deletions
diff --git a/tests/expr-old.test b/tests/expr-old.test
index cea20f1..a73b77a 100644
--- a/tests/expr-old.test
+++ b/tests/expr-old.test
@@ -1142,8 +1142,8 @@ test expr-old-40.2 {min math function} -body {
expr {min(0.0)}
} -result 0.0
test expr-old-40.3 {min math function} -body {
- list [catch {expr {min()}} msg] $msg
-} -result {1 {too few arguments to math function "min"}}
+ expr {min()}
+} -returnCodes error -result {too few arguments for math function "min"}
test expr-old-40.4 {min math function} -body {
expr {min(wide(-1) << 30, 4.5, -10)}
} -result [expr {wide(-1) << 30}]
@@ -1153,6 +1153,12 @@ test expr-old-40.5 {min math function} -body {
test expr-old-40.6 {min math function} -body {
expr {min(300, "0xFF")}
} -result 255
+test expr-old-40.7 {min math function} -body {
+ expr min(1[string repeat 0 10000], 1e300)
+} -result 1e+300
+test expr-old-40.8 {min math function} -body {
+ expr {min(0, "a")}
+} -returnCodes error -match glob -result *
test expr-old-41.1 {max math function} -body {
expr {max(0)}
@@ -1161,8 +1167,8 @@ test expr-old-41.2 {max math function} -body {
expr {max(0.0)}
} -result 0.0
test expr-old-41.3 {max math function} -body {
- list [catch {expr {max()}} msg] $msg
-} -result {1 {too few arguments to math function "max"}}
+ expr {max()}
+} -returnCodes error -result {too few arguments for math function "max"}
test expr-old-41.4 {max math function} -body {
expr {max(wide(1) << 30, 4.5, -10)}
} -result [expr {wide(1) << 30}]
@@ -1172,6 +1178,12 @@ test expr-old-41.5 {max math function} -body {
test expr-old-41.6 {max math function} -body {
expr {max(200, "0xFF")}
} -result 255
+test expr-old-41.7 {max math function} -body {
+ expr max(1[string repeat 0 10000], 1e300)
+} -result 1[string repeat 0 10000]
+test expr-old-41.8 {max math function} -body {
+ expr {max(0, "a")}
+} -returnCodes error -match glob -result *
# Special test for Pentium arithmetic bug of 1994: