diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2003-11-14 23:21:01 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2003-11-14 23:21:01 (GMT) |
| commit | 8200862cb7c911e184f4b9f35578e67f2000cf11 (patch) | |
| tree | 2b42c119e735fa5a23d1e4521793e39cf223ad8f /tests | |
| parent | f3987dcd1d334e845d4fe6448f4a11e104392a96 (diff) | |
| download | tcl-8200862cb7c911e184f4b9f35578e67f2000cf11.zip tcl-8200862cb7c911e184f4b9f35578e67f2000cf11.tar.gz tcl-8200862cb7c911e184f4b9f35578e67f2000cf11.tar.bz2 | |
TIP#138 implementation plus extra test stuff [Patch 731356]
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/misc.test | 18 |
1 files changed, 5 insertions, 13 deletions
diff --git a/tests/misc.test b/tests/misc.test index d6536b7..69b08e1 100644 --- a/tests/misc.test +++ b/tests/misc.test @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: misc.test,v 1.6 2003/02/16 01:36:32 msofer Exp $ +# RCS: @(#) $Id: misc.test,v 1.7 2003/11/14 23:21:02 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -66,18 +66,10 @@ missing close-brace for variable name invoked from within "tstProc"}] +for {set i 1} {$i<300} {incr i} { + test misc-2.$i {hash table with sys-alloc} "testhashsystemhash $i" OK +} + # cleanup ::tcltest::cleanupTests return - - - - - - - - - - - - |