diff options
Diffstat (limited to 'examples/redis-unstable/tests/unit/moduleapi/infotest.tcl')
| -rw-r--r-- | examples/redis-unstable/tests/unit/moduleapi/infotest.tcl | 131 |
1 files changed, 0 insertions, 131 deletions
diff --git a/examples/redis-unstable/tests/unit/moduleapi/infotest.tcl b/examples/redis-unstable/tests/unit/moduleapi/infotest.tcl deleted file mode 100644 index 493d24d..0000000 --- a/examples/redis-unstable/tests/unit/moduleapi/infotest.tcl +++ /dev/null @@ -1,131 +0,0 @@ -set testmodule [file normalize tests/modules/infotest.so] - -# Return value for INFO property -proc field {info property} { - if {[regexp "\r\n$property:(.*?)\r\n" $info _ value]} { - set _ $value - } -} - -start_server {tags {"modules external:skip"}} { - r module load $testmodule log-key 0 - - test {module reading info} { - # check string, integer and float fields - assert_equal [r info.gets replication role] "master" - assert_equal [r info.getc replication role] "master" - assert_equal [r info.geti stats expired_keys] 0 - assert_equal [r info.getd stats expired_stale_perc] 0 - - # check signed and unsigned - assert_equal [r info.geti infotest infotest_global] -2 - assert_equal [r info.getu infotest infotest_uglobal] -2 - - # the above are always 0, try module info that is non-zero - assert_equal [r info.geti infotest_italian infotest_due] 2 - set tre [r info.getd infotest_italian infotest_tre] - assert {$tre > 3.2 && $tre < 3.4 } - - # search using the wrong section - catch { [r info.gets badname redis_version] } e - assert_match {*not found*} $e - - # check that section filter works - assert { [string match "*usec_per_call*" [r info.gets all cmdstat_info.gets] ] } - catch { [r info.gets default cmdstat_info.gets] ] } e - assert_match {*not found*} $e - } - - test {module info all} { - set info [r info all] - # info all does not contain modules - assert { ![string match "*Spanish*" $info] } - assert { ![string match "*infotest_*" $info] } - assert { [string match "*used_memory*" $info] } - } - - test {module info all infotest} { - set info [r info all infotest] - # info all infotest should contain both ALL and the module information - assert { [string match "*Spanish*" $info] } - assert { [string match "*infotest_*" $info] } - assert { [string match "*used_memory*" $info] } - } - - test {module info everything} { - set info [r info everything] - # info everything contains all default sections, but not ones for crash report - assert { [string match "*infotest_global*" $info] } - assert { [string match "*Spanish*" $info] } - assert { [string match "*Italian*" $info] } - assert { [string match "*used_memory*" $info] } - assert { ![string match "*Klingon*" $info] } - field $info infotest_dos - } {2} - - test {module info modules} { - set info [r info modules] - # info all does not contain modules - assert { [string match "*Spanish*" $info] } - assert { [string match "*infotest_global*" $info] } - assert { ![string match "*used_memory*" $info] } - } - - test {module info one module} { - set info [r info INFOtest] ;# test case insensitive compare - # info all does not contain modules - assert { [string match "*Spanish*" $info] } - assert { ![string match "*used_memory*" $info] } - field $info infotest_global - } {-2} - - test {module info one section} { - set info [r info INFOtest_SpanisH] ;# test case insensitive compare - assert { ![string match "*used_memory*" $info] } - assert { ![string match "*Italian*" $info] } - assert { ![string match "*infotest_global*" $info] } - field $info infotest_uno - } {one} - - test {module info dict} { - set info [r info infotest_keyspace] - set keyspace [field $info infotest_db0] - set keys [scan [regexp -inline {keys\=([\d]*)} $keyspace] keys=%d] - } {3} - - test {module info unsafe fields} { - set info [r info infotest_unsafe] - assert_match {*infotest_unsafe_field:value=1*} $info - } - - test {module info multiply sections without all, everything, default keywords} { - set info [r info replication INFOTEST] - assert { [string match "*Spanish*" $info] } - assert { ![string match "*used_memory*" $info] } - assert { [string match "*repl_offset*" $info] } - } - - test {module info multiply sections with all keyword and modules} { - set info [r info all modules] - assert { [string match "*cluster*" $info] } - assert { [string match "*cmdstat_info*" $info] } - assert { [string match "*infotest_global*" $info] } - } - - test {module info multiply sections with everything keyword} { - set info [r info replication everything cpu] - assert { [string match "*client_recent*" $info] } - assert { [string match "*cmdstat_info*" $info] } - assert { [string match "*Italian*" $info] } - # check that we didn't get the same info twice - assert { ![string match "*used_cpu_user_children*used_cpu_user_children*" $info] } - assert { ![string match "*Italian*Italian*" $info] } - field $info infotest_dos - } {2} - - test "Unload the module - infotest" { - assert_equal {OK} [r module unload infotest] - } - - # TODO: test crash report. -} |