diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-07-05 12:25:36 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-12-12 13:44:33 +1000 |
| commit | e7fa6323b6093c5b83cfc48f569a25257891777d (patch) | |
| tree | 0e25c96aa0ad3943e2158637f9ab7519eb9b5cd7 /tests/exec2.test | |
| parent | 492b4c67d1eb1bff7b6f7bfe8f10b8addc6bc4f2 (diff) | |
| download | jimtcl-e7fa6323b6093c5b83cfc48f569a25257891777d.zip jimtcl-e7fa6323b6093c5b83cfc48f569a25257891777d.tar.gz jimtcl-e7fa6323b6093c5b83cfc48f569a25257891777d.tar.bz2 | |
Restore the environment after tests/exec2.test
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/exec2.test')
| -rw-r--r-- | tests/exec2.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/exec2.test b/tests/exec2.test index 103d29b..e43bba0 100644 --- a/tests/exec2.test +++ b/tests/exec2.test @@ -10,6 +10,8 @@ set d \" set s ' set b \\ +array set saveenv [array get env] + test exec2-1.1 "Quoting - Result" { exec echo ${d}double quoted${d} ${s}single quoted${s} ${b}backslash quoted${b} } "\"double\ quoted\"\ 'single quoted'\ \\backslash\ quoted\\" @@ -40,4 +42,6 @@ test exec2-2.4 "Remove all env var" { exec printenv | sed -n -e /^TESTENV2=/p } {} +array set env [array get saveenv] + testreport |