blob: dccb992a9ebac77718a37f2badda5d8f049dfe6d (
plain)
1
2
3
4
5
6
7
8
9
|
source "../tests/includes/init-tests.tcl"
test "Sentinel debug test with arguments and without argument" {
set current_info_period [lindex [S 0 SENTINEL DEBUG] 1]
S 0 SENTINEL DEBUG info-period 8888
assert_equal {8888} [lindex [S 0 SENTINEL DEBUG] 1]
S 0 SENTINEL DEBUG info-period $current_info_period
assert_equal $current_info_period [lindex [S 0 SENTINEL DEBUG] 1]
}
|