将Unit Test绑定到本地的调试的pika进程

[chenbt-hz]

通过修改tcl脚本的配置和少量代码可以实现将Unit Test绑定到本地的调试的pika进程，即，执行Unit Test时也可以debug pika

备注

这个方案在Mac + clion的开发环境 + basic.tcl 验证，可以执行成功
如果是其他的tcl可能还需要修改一些方法
具体需要修改的部分，下面我通过添加注释的方式已经标出

修改步骤

• 修改redis.tcl脚本

# 修改默认的端口号为你指定的端口，这里是9221
proc redis {{server 127.0.0.1} {port 9221} {defer 0}} {
# 这里我选择将使用的端口号打印出来
    puts "redis cont: $server $port"
    set fd [socket $server $port]
    fconfigure $fd -translation binary
...

• 修改server.tcl

proc start_server {options {code undefined}} {
    # If we are running against an external server, we just push the
    # host/port pair in the stack the first time
    # 确保清空，可能并没有发挥作用
    set ::servers {}
    if {$::external} {
        if {[llength $::servers] == 0} {
            set srv {}
            # 打印看下当前执行的情况
            puts "Host: $::host and Port: $::port"
            dict set srv "host" $::host
            dict set srv "port" $::port
            set client [redis $::host $::port]
            dict set srv "client" $client
            # 我的调试进程只有db0，因此我需要将这里修改为select 0
            $client select 0

            # append the server to the stack
            lappend ::servers $srv
        }
        uplevel 1 $code
        return
    }

• 修改test_helper.tcl

# 修改配置
set ::port 9221
set ::external 1; 
...
# 这里将level固定写为了1
proc srv {args} {
    #set level 0
    set level 1
    if {[string is integer [lindex $args 0]]} {
        set level [lindex $args 0]
        set property [lindex $args 1]
    } else {
        set property [lindex $args 0]
    }
    set srv [lindex $::servers end+$level]
    dict get $srv $property
}

proc reconnect {args} {
   ......
    # select the right db when we don't have to authenticate
    if {![dict exists $config "requirepass"]} {
# 根据自己的情况修改db
        $client select 0
    }

    # re-set $srv in the servers list
    lset ::servers end+$level $srv
}

......


proc test_server_main {} {
    ......
    for {set j 0} {$j < $::numclients} {incr j} {
        set start_port [find_available_port $start_port]
        # 把它固定写为调试进程的端口号，这里是9221
        set start_port 9221
        set p [exec $tclsh [info script] {*}$::argv \
            --client $port --port $start_port &]
        lappend ::clients_pids $p
        incr start_port 10
    }
......
}

执行步骤

1. clion启动调试
2. 终端界面在pika根目录下执行，例如： tclsh tests/test_helper.tcl --clients 1 --host 127.0.0.1 --port 9221 --single unit/basic