test: mock debug populate (#1693)

OpenAtomFoundation · Jul 9, 2023 · ff965a7 · ff965a7
1 parent bfb8a75
commit ff965a7
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 5 deletions.
diff --git a/tests/support/util.tcl b/tests/support/util.tcl
@@ -369,3 +369,10 @@ proc start_write_load {host port seconds} {
 proc stop_write_load {handle} {
  catch {exec /bin/kill -9 $handle}
 }
+
+# Mock debug populate
+proc populate {size} {
+ for {set counter 0} {$counter < $size} {incr counter} {
+ r set "key:$counter" "key:$counter"
+ }
+}
diff --git a/tests/unit/scan.tcl b/tests/unit/scan.tcl
@@ -1,7 +1,8 @@
 start_server {tags {"scan"}} {
  test "SCAN basic" {
  r flushdb
- r debug populate 1000
+ populate 1000
+ #populate 1000
 
  set cur 0
  set keys {}
@@ -19,7 +20,7 @@ start_server {tags {"scan"}} {
 
  test "SCAN COUNT" {
  r flushdb
- r debug populate 1000
+ populate 1000
 
  set cur 0
  set keys {}
@@ -37,7 +38,7 @@ start_server {tags {"scan"}} {
 
  test "SCAN MATCH" {
  r flushdb
- r debug populate 1000
+ populate 1000
 
  set cur 0
  set keys {}
@@ -56,7 +57,7 @@ start_server {tags {"scan"}} {
  test "SCAN TYPE" {
  r flushdb
  # populate only creates strings
- r debug populate 1000
+ populate 1000
 
  # Check non-strings are excluded
  set cur 0
@@ -214,7 +215,7 @@ start_server {tags {"scan"}} {
 
  test "SCAN guarantees check under write load" {
  r flushdb
- r debug populate 100
+ populate 100
 
  # We start scanning here, so keys from 0 to 99 should all be
  # reported at the end of the iteration.