Remove testing data

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
-}