Skip to content

Commit

Permalink
test: Comment unavailable tcl test cases (OpenAtomFoundation#2528)
Browse files Browse the repository at this point in the history
* Comment unavailable tcl test cases
---------
Co-authored-by: ZeE <[email protected]>
  • Loading branch information
zhjinliang authored Mar 22, 2024
1 parent 192c5b2 commit bcf2ac1
Show file tree
Hide file tree
Showing 2 changed files with 10 additions and 8 deletions.
1 change: 1 addition & 0 deletions .gitignore
Original file line number Diff line number Diff line change
Expand Up @@ -48,6 +48,7 @@ tags

# IDE
.vscode
.DS_Store

# generate
make_config.mk
Expand Down
17 changes: 9 additions & 8 deletions tests/unit/introspection.tcl
Original file line number Diff line number Diff line change
Expand Up @@ -11,14 +11,15 @@ start_server {tags {"introspection"}} {
list [$rd read] [$rd read] [$rd read]
} {*OK*"set" "foo"*"get" "foo"*}

test {MONITOR can log commands issued by the scripting engine} {
set rd [redis_deferring_client]
$rd monitor
r eval {redis.call('set',KEYS[1],ARGV[1])} 1 foo bar
$rd read ;# Discard the OK
assert_match {*eval*} [$rd read]
assert_match {*lua*"set"*"foo"*"bar"*} [$rd read]
}
# Pika does not support the debug command
# test {MONITOR can log commands issued by the scripting engine} {
# set rd [redis_deferring_client]
# $rd monitor
# r eval {redis.call('set',KEYS[1],ARGV[1])} 1 foo bar
# $rd read ;# Discard the OK
# assert_match {*eval*} [$rd read]
# assert_match {*lua*"set"*"foo"*"bar"*} [$rd read]
# }

test {CLIENT GETNAME should return NIL if name is not assigned} {
r client getname
Expand Down

0 comments on commit bcf2ac1

Please sign in to comment.