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 | 957890bf54197a9221fb3c3e65ef4cbc07490352 (patch) | |
| tree | 0b9e40182d819dd82863a686a5eef4a7cb5432da /tests | |
| parent | f2c4a32d7fbff5e3b59d4d1594a55ea3dbf52837 (diff) | |
| download | tcl-957890bf54197a9221fb3c3e65ef4cbc07490352.zip tcl-957890bf54197a9221fb3c3e65ef4cbc07490352.tar.gz tcl-957890bf54197a9221fb3c3e65ef4cbc07490352.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]] |