From 8fc370d7481eece79387a5900fef437a6567bdc2 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 21 Mar 2006 18:39:11 +0000
Subject: Committed test cases for Bug 1451233

---
 tests/parseExpr.test | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/tests/parseExpr.test b/tests/parseExpr.test
index 4c99525..c802a9e 100644
--- a/tests/parseExpr.test
+++ b/tests/parseExpr.test
@@ -8,7 +8,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: parseExpr.test,v 1.19 2006/03/21 18:30:55 dgp Exp $
+# RCS: @(#) $Id: parseExpr.test,v 1.20 2006/03/21 18:39:11 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -756,6 +756,16 @@ test parseExpr-19.1 {TclParseInteger: [Bug 648441]} {
     list [catch {expr 0x} result] $result
 } [list 1 {syntax error in expression "0x": extra tokens at end of expression}]
 
+test parseExpr-20.1 {Bug 1451233} {
+    expr 1000000000000000000042
+} 1000000000000000000042
+test parseExpr-20.2 {Bug 1451233} {
+    expr 10000000000000000000420000000042
+} 10000000000000000000420000000042
+test parseExpr-20.2 {Bug 1451233} {
+    expr 10000000000000000000020000000002
+} 10000000000000000000020000000002
+
 # cleanup
 ::tcltest::cleanupTests
 return
-- 
cgit v0.12