diff options
| author | Pieter Noordhuis <pcnoordhuis@gmail.com> | 2010-12-14 15:10:58 +0100 |
|---|---|---|
| committer | Pieter Noordhuis <pcnoordhuis@gmail.com> | 2010-12-14 15:16:29 +0100 |
| commit | ef11bccccac22a001e2d0a6f440dddf69c401954 (patch) | |
| tree | 8087dcea177e23456b276f035bff66669b7968b8 /tests | |
| parent | 9f9e1ceaa0d4451a21aa56739e63cca012399317 (diff) | |
| download | redis-ef11bccccac22a001e2d0a6f440dddf69c401954.tar.gz | |
Refactor and rename SUBSTR to GETRANGE
SUBSTR is renamed to GETRANGE to have better consistency between command
names (with SETRANGE as its dual). GETRANGE is still aliased as SUBSTR.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/unit/basic.tcl | 36 | ||||
| -rw-r--r-- | tests/unit/other.tcl | 36 |
2 files changed, 36 insertions, 36 deletions
diff --git a/tests/unit/basic.tcl b/tests/unit/basic.tcl index ecd2040aa..f082b05da 100644 --- a/tests/unit/basic.tcl +++ b/tests/unit/basic.tcl @@ -562,4 +562,40 @@ start_server {tags {"basic"}} { r set mykey "hello" assert_error "*maximum allowed size*" {r setrange mykey [expr 512*1024*1024-4] world} } + + test {SUBSTR basics} { + set res {} + r set foo "Hello World" + lappend res [r substr foo 0 3] + lappend res [r substr foo 0 -1] + lappend res [r substr foo -4 -1] + lappend res [r substr foo 5 3] + lappend res [r substr foo 5 5000] + lappend res [r substr foo -5000 10000] + set _ $res + } {Hell {Hello World} orld {} { World} {Hello World}} + + test {SUBSTR against integer encoded values} { + r set foo 123 + r substr foo 0 -2 + } {12} + + test {SUBSTR fuzzing} { + set err {} + for {set i 0} {$i < 1000} {incr i} { + set bin [randstring 0 1024 binary] + set _start [set start [randomInt 1500]] + set _end [set end [randomInt 1500]] + if {$_start < 0} {set _start "end-[abs($_start)-1]"} + if {$_end < 0} {set _end "end-[abs($_end)-1]"} + set s1 [string range $bin $_start $_end] + r set bin $bin + set s2 [r substr bin $start $end] + if {$s1 != $s2} { + set err "String mismatch" + break + } + } + set _ $err + } {} } diff --git a/tests/unit/other.tcl b/tests/unit/other.tcl index 2e6c0ae17..c142ba7f0 100644 --- a/tests/unit/other.tcl +++ b/tests/unit/other.tcl @@ -216,42 +216,6 @@ start_server {tags {"other"}} { set _ $err } {} - test {SUBSTR basics} { - set res {} - r set foo "Hello World" - lappend res [r substr foo 0 3] - lappend res [r substr foo 0 -1] - lappend res [r substr foo -4 -1] - lappend res [r substr foo 5 3] - lappend res [r substr foo 5 5000] - lappend res [r substr foo -5000 10000] - set _ $res - } {Hell {Hello World} orld {} { World} {Hello World}} - - test {SUBSTR against integer encoded values} { - r set foo 123 - r substr foo 0 -2 - } {12} - - test {SUBSTR fuzzing} { - set err {} - for {set i 0} {$i < 1000} {incr i} { - set bin [randstring 0 1024 binary] - set _start [set start [randomInt 1500]] - set _end [set end [randomInt 1500]] - if {$_start < 0} {set _start "end-[abs($_start)-1]"} - if {$_end < 0} {set _end "end-[abs($_end)-1]"} - set s1 [string range $bin $_start $_end] - r set bin $bin - set s2 [r substr bin $start $end] - if {$s1 != $s2} { - set err "String mismatch" - break - } - } - set _ $err - } {} - # Leave the user with a clean DB before to exit test {FLUSHDB} { set aux {} |