diff --git a/tests/unit/info.tcl b/tests/unit/info.tcl index a27043fa88..11dc4e5d40 100644 --- a/tests/unit/info.tcl +++ b/tests/unit/info.tcl @@ -391,7 +391,13 @@ start_server {tags {"info" "external:skip" "debug_defrag:skip"}} { # set qbuf limit to minimum to test stat set org_qbuf_limit [lindex [r config get client-query-buffer-limit] 1] r config set client-query-buffer-limit 1048576 - catch {r set key [string repeat a 1048576]} + catch {r set key [string repeat a 2048576]} e + # We might get an error on the write path of the previous command, which won't be + # an I/O error based on how the client is designed. We will need to manually consume + # the secondary I/O error. + if {![string match "I/O error*" $e]} { + catch {r read} + } set info [r info stats] assert_equal [getInfoProperty $info client_query_buffer_limit_disconnections] {1} r config set client-query-buffer-limit $org_qbuf_limit