diff options
| author | dgp <dgp@users.sourceforge.net> | 2022-09-21 14:59:40 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2022-09-21 14:59:40 (GMT) |
| commit | 6a3c75c37fdb9e5ad6a19ad77d0be583468637e7 (patch) | |
| tree | 09e8fe5c91d5bcbd4a0932a688e7028c79014986 /tests | |
| parent | 9a87f872f4610702dd7ede9d67593b3b199daadf (diff) | |
| download | tcl-6a3c75c37fdb9e5ad6a19ad77d0be583468637e7.zip tcl-6a3c75c37fdb9e5ad6a19ad77d0be583468637e7.tar.gz tcl-6a3c75c37fdb9e5ad6a19ad77d0be583468637e7.tar.bz2 | |
Reduce chances for test conflicts.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/env.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/env.test b/tests/env.test index ebe7bc7..dcf5ab4 100644 --- a/tests/env.test +++ b/tests/env.test @@ -427,10 +427,10 @@ test env-7.5 { set env variable through upvar } -setup setup1 -body { apply {{} { - set ::env(test7_4) origvalue - upvar #0 env(test7_4) var + set ::env(test7_5) origvalue + upvar #0 env(test7_5) var set var newvalue - return $::env(test7_4) + return $::env(test7_5) }} } -cleanup cleanup1 -result newvalue @@ -438,10 +438,10 @@ test env-7.6 { unset env variable through upvar } -setup setup1 -body { apply {{} { - set ::env(test7_4) origvalue - upvar #0 env(test7_4) var + set ::env(test7_6) origvalue + upvar #0 env(test7_6) var unset var - return [array get env test7_4] + return [array get env test7_6] }} } -cleanup cleanup1 -result {} |