Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ruanhaishen
redis
Commits
86d39249
Commit
86d39249
authored
Jul 29, 2010
by
Pieter Noordhuis
Browse files
ensure the value is swapped in before testing its encoding
parent
cbf7e107
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/support/test.tcl
View file @
86d39249
...
...
@@ -33,9 +33,14 @@ proc assert_error {pattern code} {
}
proc assert_encoding
{
enc key
}
{
# swapped out value doesn't have encoding, so swap in first
r debug swapin $key
assert_match
"* encoding:
$enc
*"
[
r debug object $key
]
# Swapped out values don't have an encoding, so make sure that
# the value is swapped in before checking the encoding.
set dbg
[
r debug object $key
]
while
{[
string match
"* swapped:*"
$dbg
]}
{
[
r debug swapin $key
]
set dbg
[
r debug object $key
]
}
assert_match
"* encoding:
$enc
*"
$dbg
}
proc assert_type
{
type key
}
{
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment