summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2007-08-08 20:25:03 (GMT)
committerdgp <dgp@users.sourceforge.net>2007-08-08 20:25:03 (GMT)
commitbc492ff043ece437a95b266d390d5be0a0247380 (patch)
treeea5416fbb503bc129113c2ce7e60f3087ecbd114 /tests
parent37346f4ab8d60c9dcc09d42ea9751599215eaca7 (diff)
downloadtcl-bc492ff043ece437a95b266d390d5be0a0247380.zip
tcl-bc492ff043ece437a95b266d390d5be0a0247380.tar.gz
tcl-bc492ff043ece437a95b266d390d5be0a0247380.tar.bz2
* generic/tclExecute.c: Corrected improper use of bignum arguments
* tests/expr.test: to *SHIFT operations. [Bug 1770224].
Diffstat (limited to 'tests')
-rw-r--r--tests/expr.test6
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/expr.test b/tests/expr.test
index daab2f4..f73c613 100644
--- a/tests/expr.test
+++ b/tests/expr.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: expr.test,v 1.67 2006/12/06 16:37:00 kennykb Exp $
+# RCS: @(#) $Id: expr.test,v 1.68 2007/08/08 20:25:05 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2.1
@@ -6658,6 +6658,10 @@ test expr-47.12 {isqrt of various sizes of integer} {
set trouble
} {}
+test expr-48.1 {Bug 1770224} {
+ expr {-0x8000000000000001 >> 0x8000000000000000}
+} -1
+
# cleanup
if {[info exists a]} {
unset a