File: infra.tcl

package info (click to toggle)
redis 5%3A8.0.2-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 22,304 kB
  • sloc: ansic: 216,903; tcl: 51,562; sh: 4,625; perl: 4,214; cpp: 3,568; python: 2,954; makefile: 2,055; ruby: 639; javascript: 30; csh: 7
file content (25 lines) | stat: -rw-r--r-- 709 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
set testmodule [file normalize tests/modules/infotest.so]

test {modules config rewrite} {

    start_server {tags {"modules"}} {
        r module load $testmodule

        set modules [lmap x [r module list] {dict get $x name}]
        assert_not_equal [lsearch $modules infotest] -1

        r config rewrite
        restart_server 0 true false

        set modules [lmap x [r module list] {dict get $x name}]
        assert_not_equal [lsearch $modules infotest] -1

        assert_equal {OK} [r module unload infotest]

        r config rewrite
        restart_server 0 true false

        set modules [lmap x [r module list] {dict get $x name}]
        assert_equal [lsearch $modules infotest] -1
    }
}