fix crash [0de6c1d79c] more consistently (an error "bad level" for info instead of artifical dummy info)

1 files changed, 6 insertions, 3 deletions

diff --git a/tests/info.test b/tests/info.test
index ff3457f..17c114b 100644
--- a/tests/info.test
+++ b/tests/info.test
@@ -2418,11 +2418,14 @@ test info-39.2 {Bug 4b61afd660} -setup {
 test info-40.0 {Bug 0de6c1d79c crash} -setup {
     interp create child
     child hide info
+} -body {
+    list [child invokehidden info frame] \
+	[catch {child invokehidden info frame 0} msg] $msg \
+	[catch {child invokehidden info frame 1} msg] $msg
 } -cleanup {
     interp delete child
-} -body {
-    child invokehidden info frame
-} -result 1
+    unset -nocomplain msg
+} -result {1 1 {bad level "0"} 1 {bad level "1"}}
 
 # cleanup
 catch {namespace delete test_ns_info1 test_ns_info2}