diff options
| author | griffin <briang42@easystreet.net> | 2023-05-21 20:42:14 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2023-05-21 20:42:14 (GMT) |
| commit | 54a1d7e517922684d8612dea07b479a6d493e2f1 (patch) | |
| tree | b3d80dde6909627001000d24c68b97e0568b7b11 /tests/lseq.test | |
| parent | c6cce703b575fc84d5337526cc517be30e8b92a5 (diff) | |
| download | tcl-54a1d7e517922684d8612dea07b479a6d493e2f1.zip tcl-54a1d7e517922684d8612dea07b479a6d493e2f1.tar.gz tcl-54a1d7e517922684d8612dea07b479a6d493e2f1.tar.bz2 | |
Fix test to be stable.
Diffstat (limited to 'tests/lseq.test')
| -rw-r--r-- | tests/lseq.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/lseq.test b/tests/lseq.test index 824b6d5..543ad89 100644 --- a/tests/lseq.test +++ b/tests/lseq.test @@ -650,7 +650,7 @@ test lseq-4.18 {concat shimmer} -body { # Test lseq elements as var names test lseq-4.19 {varnames} -body { set plist {} - foreach v [info proc auto_*] { + foreach v {auto_execok auto_load auto_qualify} { lappend plist proc $v [info args $v] [info body $v] } set res {} @@ -661,7 +661,7 @@ test lseq-4.19 {varnames} -body { lappend res [lindex [tcl::unsupported::representation $varlist] 3] } -cleanup { unset {*}$varlist res varlist v plist -} -result {auto_import 1 auto_execok 1 auto_load_index 0 auto_qualify 2 auto_load 2 arithseries} +} -result {auto_execok 1 auto_load 2 auto_qualify 2 arithseries} test lseq-convertToList {does not result in a memory error} -body { trace add variable var1 write [list ::apply [list args { |