2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
|
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
|
+
+
+
+
+
+
+
+
+
|
} -body {
demo
} -cleanup {
unset -nocomplain body
rename demo {}
rename probe {}
} -result 3
test info-40.0 {Bug 0de6c1d79c crash} -setup {
interp create child
child hide info
} -cleanup {
interp delete child
} -body {
child invokehidden info frame
} -result 1
# cleanup
catch {namespace delete test_ns_info1 test_ns_info2}
::tcltest::cleanupTests
return
|