diff options
| author | sebres <sebres@users.sourceforge.net> | 2024-07-14 19:25:12 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2024-07-14 19:25:12 (GMT) |
| commit | 6dc7b4a71407b572773156f30fc53fc1cea23d19 (patch) | |
| tree | 4c45a00899e6db67e74d2fd28c9ecfc5931d7fa3 | |
| parent | 671747e4bbcb05575747abe43fb508972b89cb24 (diff) | |
| download | tcl-6dc7b4a71407b572773156f30fc53fc1cea23d19.zip tcl-6dc7b4a71407b572773156f30fc53fc1cea23d19.tar.gz tcl-6dc7b4a71407b572773156f30fc53fc1cea23d19.tar.bz2 | |
undo mainline tests, tests of branch moved to replace them
| -rw-r--r-- | tests/info.test | 32 |
1 files changed, 5 insertions, 27 deletions
diff --git a/tests/info.test b/tests/info.test index f03e943..a8a6245 100644 --- a/tests/info.test +++ b/tests/info.test @@ -2397,28 +2397,6 @@ test info-33.35 {{*}, literal, simple, bytecompiled} -body { # ------------------------------------------------------------------------- -test info-19.7 {info vars: bug [0e4b7fce57], TIP #278 - no global vars resolve} -setup { - catch {namespace delete x} -} -body { - namespace eval x {info vars} -} -cleanup { - namespace delete x -} -result {} -test info-19.8 {info vars: bug [0e4b7fce57], TIP #278 - no global vars resolve} -setup { - catch {namespace delete x} -} -body { - namespace eval x {info vars tcl_platform} -} -cleanup { - namespace delete x -} -result {} -test info-19.9 {info vars: global vars resolved by pattern} -setup { - catch {namespace delete x} -} -body { - namespace eval x {info vars ::tcl_platform} -} -cleanup { - namespace delete x -} -result {::tcl_platform} - namespace eval ::testinfocmdtype { apply {cmds { foreach c $cmds {rename $c {}} @@ -2589,20 +2567,20 @@ namespace delete ::testinfocmdtype # ------------------------------------------------------------------------- unset -nocomplain res -test info-19.7 {info vars: before TIP #278 - global vars resolved in namespace} -setup { +test info-19.7 {info vars: bug [0e4b7fce57], TIP #278 - no global vars resolve} -setup { catch {namespace delete x} } -body { - expr { [llength [namespace eval x {info vars}]] > 0 } + namespace eval x {info vars} } -cleanup { namespace delete x -} -result 1 -test info-19.8 {info vars: before TIP #278 - global vars resolved in namespace} -setup { +} -result {} +test info-19.8 {info vars: bug [0e4b7fce57], TIP #278 - no global vars resolve} -setup { catch {namespace delete x} } -body { namespace eval x {info vars tcl_platform} } -cleanup { namespace delete x -} -result {tcl_platform} +} -result {} test info-19.9 {info vars: global vars resolved by pattern} -setup { catch {namespace delete x} } -body { |