diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-18 08:32:28 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-18 08:32:28 (GMT) |
| commit | a021fc103773e0fa108dad8b366e17e84eddd21b (patch) | |
| tree | 0b9e40182d819dd82863a686a5eef4a7cb5432da /tests | |
| parent | 11746de2bbd17844321c7d02df7cc4977b192738 (diff) | |
| download | tcl-a021fc103773e0fa108dad8b366e17e84eddd21b.zip tcl-a021fc103773e0fa108dad8b366e17e84eddd21b.tar.gz tcl-a021fc103773e0fa108dad8b366e17e84eddd21b.tar.bz2 | |
Two new testcases for abs()
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/expr.test | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/expr.test b/tests/expr.test index b81c4a7..4fa6821 100644 --- a/tests/expr.test +++ b/tests/expr.test @@ -138,7 +138,7 @@ proc do_twelve_days {} { unset xxx return $result } - + # start of tests catch {unset a b i x} @@ -6722,6 +6722,12 @@ test expr-38.12 {abs and -0x0 [Bug 2954959]} { test expr-38.13 {abs and 0.0 [Bug 2954959]} { ::tcl::mathfunc::abs 1e-324 } 1e-324 +test expr-38.14 {abs and INT64_MIN special-case} { + ::tcl::mathfunc::abs -9223372036854775808 +} 9223372036854775808 +test expr-38.15 {abs and INT128_MIN special-case} { + ::tcl::mathfunc::abs -170141183460469231731687303715884105728 +} 170141183460469231731687303715884105728 testConstraint testexprlongobj [llength [info commands testexprlongobj]] testConstraint testexprdoubleobj [llength [info commands testexprdoubleobj]] |