diff options
Diffstat (limited to 'examples/redis-unstable/tests/support/aofmanifest.tcl')
| -rw-r--r-- | examples/redis-unstable/tests/support/aofmanifest.tcl | 173 |
1 files changed, 0 insertions, 173 deletions
diff --git a/examples/redis-unstable/tests/support/aofmanifest.tcl b/examples/redis-unstable/tests/support/aofmanifest.tcl deleted file mode 100644 index 68eed03..0000000 --- a/examples/redis-unstable/tests/support/aofmanifest.tcl +++ /dev/null @@ -1,173 +0,0 @@ -set ::base_aof_sufix ".base" -set ::incr_aof_sufix ".incr" -set ::manifest_suffix ".manifest" -set ::aof_format_suffix ".aof" -set ::rdb_format_suffix ".rdb" - -proc get_full_path {dir filename} { - set _ [format "%s/%s" $dir $filename] -} - -proc join_path {dir1 dir2} { - return [format "%s/%s" $dir1 $dir2] -} - -proc get_redis_dir {} { - set config [srv config] - set _ [dict get $config "dir"] -} - -proc check_file_exist {dir filename} { - set file_path [get_full_path $dir $filename] - return [file exists $file_path] -} - -proc del_file {dir filename} { - set file_path [get_full_path $dir $filename] - catch {exec rm -rf $file_path} -} - -proc get_cur_base_aof_name {manifest_filepath} { - set fp [open $manifest_filepath r+] - set lines {} - while {1} { - set line [gets $fp] - if {[eof $fp]} { - close $fp - break; - } - - lappend lines $line - } - - if {[llength $lines] == 0} { - return "" - } - - set first_line [lindex $lines 0] - set aofname [lindex [split $first_line " "] 1] - set aoftype [lindex [split $first_line " "] 5] - if { $aoftype eq "b" } { - return $aofname - } - - return "" -} - -proc get_last_incr_aof_name {manifest_filepath} { - set fp [open $manifest_filepath r+] - set lines {} - while {1} { - set line [gets $fp] - if {[eof $fp]} { - close $fp - break; - } - - lappend lines $line - } - - if {[llength $lines] == 0} { - return "" - } - - set len [llength $lines] - set last_line [lindex $lines [expr $len - 1]] - set aofname [lindex [split $last_line " "] 1] - set aoftype [lindex [split $last_line " "] 5] - if { $aoftype eq "i" } { - return $aofname - } - - return "" -} - -proc get_last_incr_aof_path {r} { - set dir [lindex [$r config get dir] 1] - set appenddirname [lindex [$r config get appenddirname] 1] - set appendfilename [lindex [$r config get appendfilename] 1] - set manifest_filepath [file join $dir $appenddirname $appendfilename$::manifest_suffix] - set last_incr_aof_name [get_last_incr_aof_name $manifest_filepath] - if {$last_incr_aof_name == ""} { - return "" - } - return [file join $dir $appenddirname $last_incr_aof_name] -} - -proc get_base_aof_path {r} { - set dir [lindex [$r config get dir] 1] - set appenddirname [lindex [$r config get appenddirname] 1] - set appendfilename [lindex [$r config get appendfilename] 1] - set manifest_filepath [file join $dir $appenddirname $appendfilename$::manifest_suffix] - set cur_base_aof_name [get_cur_base_aof_name $manifest_filepath] - if {$cur_base_aof_name == ""} { - return "" - } - return [file join $dir $appenddirname $cur_base_aof_name] -} - -proc assert_aof_manifest_content {manifest_path content} { - set fp [open $manifest_path r+] - set lines {} - while {1} { - set line [gets $fp] - if {[eof $fp]} { - close $fp - break; - } - - lappend lines $line - } - - assert_equal [llength $lines] [llength $content] - - for { set i 0 } { $i < [llength $lines] } {incr i} { - assert {[string first [lindex $content $i] [lindex $lines $i]] != -1} - } -} - -proc clean_aof_persistence {aof_dirpath} { - catch {eval exec rm -rf [glob $aof_dirpath]} -} - -proc append_to_manifest {str} { - upvar fp fp - puts -nonewline $fp $str -} - -proc create_aof_manifest {dir aof_manifest_file code} { - create_aof_dir $dir - upvar fp fp - set fp [open $aof_manifest_file w+] - uplevel 1 $code - close $fp -} - -proc append_to_aof {str} { - upvar fp fp - puts -nonewline $fp $str -} - -proc create_aof {dir aof_file code} { - create_aof_dir $dir - upvar fp fp - set fp [open $aof_file w+] - uplevel 1 $code - close $fp -} - -proc create_aof_dir {dir_path} { - file mkdir $dir_path -} - -proc start_server_aof {overrides code} { - upvar defaults defaults srv srv server_path server_path aof_basename aof_basename aof_dirpath aof_dirpath aof_manifest_file aof_manifest_file aof_manifest_file2 aof_manifest_file2 - set config [concat $defaults $overrides] - start_server [list overrides $config keep_persistence true] $code -} - -proc start_server_aof_ex {overrides options code} { - upvar defaults defaults srv srv server_path server_path - set config [concat $defaults $overrides] - start_server [concat [list overrides $config keep_persistence true] $options] $code -} |