summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-03-07 20:26:21 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-03-07 20:26:21 (GMT)
commitba2f16e25ec3ec55db446f05f90ecca28cc7cff8 (patch)
tree6383517f43bf7bab71c1a1354a2595615d61333a /tests
parentcd803d5fed6b3b5bbcf7198c48a646a464ffa12b (diff)
downloadtcl-ba2f16e25ec3ec55db446f05f90ecca28cc7cff8.zip
tcl-ba2f16e25ec3ec55db446f05f90ecca28cc7cff8.tar.gz
tcl-ba2f16e25ec3ec55db446f05f90ecca28cc7cff8.tar.bz2
* generic/tclTest.c: Backport the [testexprlongobj] testing command.
Diffstat (limited to 'tests')
-rw-r--r--tests/execute.test4
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/execute.test b/tests/execute.test
index c7bd2fd..47ac562 100644
--- a/tests/execute.test
+++ b/tests/execute.test
@@ -14,7 +14,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: execute.test,v 1.13.2.3 2008/03/07 19:10:03 dgp Exp $
+# RCS: @(#) $Id: execute.test,v 1.13.2.4 2008/03/07 20:26:22 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -35,6 +35,8 @@ catch {unset msg}
::tcltest::testConstraint longIs32bit \
[expr {int(0x80000000) < 0}]
+::tcltest::testConstraint testexprlongobj \
+ [llength [info commands testexprlongobj]]
# Tests for the omnibus TclExecuteByteCode function: