initial tests for AOF (and small changes to server.tcl to support these)

This commit is contained in:
Pieter Noordhuis
2010-05-19 14:33:39 +02:00
parent 46b614edf7
commit 53cbf66caf
4 changed files with 128 additions and 26 deletions

View File

@ -188,3 +188,11 @@ proc createComplexDataset {r ops} {
}
}
}
proc formatCommand {args} {
set cmd "*[llength $args]\r\n"
foreach a $args {
append cmd "$[string length $a]\r\n$a\r\n"
}
set _ $cmd
}