Handling the error when the tcl dict gets a non-exist key

redis · Dec 21, 2020 · 56e04ff · 56e04ff
1 parent e171b27
commit 56e04ff
Showing 1 changed file with 8 additions and 6 deletions.
diff --git a/tests/support/server.tcl b/tests/support/server.tcl
@@ -53,12 +53,14 @@ proc kill_server config {
                         catch {exec leaks $pid} output option
                         # In a few tests we kill the server process, so leaks will not find it.
                         # It'll exits with exit code >1 on error, so we ignore these.
-                        set details [dict get $option -errorcode]
-                        if {[lindex $details 0] eq "CHILDSTATUS"} {
-                              set status [lindex $details 2]
-                              if {$status > 1} {
-                                  set output "0 leaks"
-                              }
+                        if {[dict exists $option -errorcode]} {
+                            set details [dict get $option -errorcode]
+                            if {[lindex $details 0] eq "CHILDSTATUS"} {
+                                  set status [lindex $details 2]
+                                  if {$status > 1} {
+                                      set output "0 leaks"
+                                  }
+                            }
                         }
                         set output
                     } {*0 leaks*}