1 files changed, 13 insertions, 0 deletions
diff --git a/tests/support/test.tcl b/tests/support/test.tcl
index 34b5aad29..2fe52f475 100644
--- a/tests/support/test.tcl
+++ b/tests/support/test.tcl
@@ -103,10 +103,23 @@ proc assert_type {type key} {
 }
 
 proc assert_refcount {ref key} {
+    if {[lsearch $::denytags "needs:debug"] >= 0} {
+        return
+    }
+
     set val [r object refcount $key]
     assert_equal $ref $val
 }
 
+proc assert_refcount_morethan {key ref} {
+    if {[lsearch $::denytags "needs:debug"] >= 0} {
+        return
+    }
+
+    set val [r object refcount $key]
+    assert_morethan $val $ref
+}
+
 # Wait for the specified condition to be true, with the specified number of
 # max retries and delay between retries. Otherwise the 'elsescript' is
 # executed.