super-test 1.0.9

data/tool/others/kk

@@ -0,0 +1,190 @@
+#!/bin/bash
+# space自动化的综合性帮助工具
+# 
+# Author::liqiang01
+# Date::2009-8-12
+
+
+gen_space_case(){
+#casename=`ruby -e " 
+#str=\"${1%_*}\"
+#str.gsub!(/_/,\" \")
+#str.gsub!(/\b\w/){$&.upcase}
+#str.gsub!(/\s/,\"\")
+#print str
+#"`
+
+    filename=${1%.rb}".rb"
+    casename=${1%_*}
+    casename=`ruby -e "'$casename'.split('_').each{|s| print s.capitalize}"`
+    casename=${casename%.rb}
+
+    echo "#!/usr/bin/env ruby
+# coding: utf-8
+# 
+# Author:: 
+# Date:: `date`
+
+\$CASE_ROOT = \"#{File.dirname(__FILE__)}\"
+require \"${gname2}_test\"
+
+
+# ===== 全局配置参数
+#TODO
+
+
+# ===== case描述
+#TODO
+class $casename < ${gname1}Test    # :nodoc:
+    
+    # 测试点
+    #TODO
+    def test_${1%_*}
+        #TODO
+    end
+
+end
+
+" > $filename
+    vim $filename
+}
+
+
+gen_space_keyword(){
+    echo "#!/usr/bin/env ruby
+# coding: utf-8
+#
+# Author::    
+# Date::    `date`
+
+
+module ...ActionHelper
+
+    # === 功能:
+    # .
+    #
+    # === 参数解释:
+    # - .
+    # - .
+    # - .
+    #
+    # === Example:
+    # ...
+    #
+    # === 备注:
+    # 
+    def ...(...)
+    ...
+    end
+end
+
+if __FILE__ == \$0
+end
+
+" > $1
+    vim $1
+}
+
+
+default(){
+	echo "KK
+
+NAME
+	kk - 取名kk是因为输入起来很简单 : )
+
+SYNOPSIS
+	kk [OPTION]... [FILE]...
+
+DESCRIPTION
+	-c, --case
+		后面跟着文件名将生成自动化case模板
+		case名称规范: {case含义备注字段}_{文本case的atp上的id}.rb （如： my_demo_125698.rb）
+	-h, --help
+		帮助文档
+	-i, --interactive
+		进入交互模式，在交互模式中你可以直接使用super-test的所有关键字
+	-k, --keyword
+		后面跟着文件名将生成关键字定义模板
+
+
+	其他信息:	
+	关键字获取网页:
+	http://db-testing-space007.db01.baidu.com:6666/super-test/rdoc/
+
+	
+	case配置文件的读取:
+	增加执行case前去require 同级目录下的 init_dir.rb
+	对于case本身的配置建议放到case文件中
+
+
+	部署相关:
+	1. 为了定位ruby路径，需要:
+	   RUBYLIB=/home/space/cvs/app-test/search/space/super-test/lib:/home/space/cvs/app-test/search/space/space-test/lib
+	   export RUBYLIB
+	2. ruby发布到每个机器上
+	   super_test和space_test发布到每个机器上
+	
+AUTHOR
+	kk
+
+SEE ALSO
+	http://com.baidu.com/twiki/bin/view/Test/NSTest_space_super_test
+
+kk (spaceutils) 1.0.1
+
+
+" | less
+}
+
+
+if echo $HOME | grep -q -E "space|ufriend";then
+	gname1="Space"
+	gname2="space"
+else
+	gname1="Wise"
+	gname2="wise"
+fi
+
+super_irb="
+require \"irb\"
+require \"${gname2}_test\"
+
+if File.exist?(\"init_dir.rb\")
+  require \"init_dir.rb\"
+end
+if __FILE__ == \$0
+  IRB.start(__FILE__)
+else
+  # check -e option
+  if /^-e$/ =~ \$0
+    IRB.start(__FILE__)
+  else
+    IRB.setup(__FILE__)
+  end
+end
+"
+
+if [ ${#@} -eq 0 ];then
+	default
+fi
+while getopts "chik" optname
+do      
+        case $optname in
+        "c") 
+		eval _f='$'$OPTIND
+		gen_space_case $_f
+		exit 0;;
+	"h")	
+		default
+		exit 0;;
+	"i")
+		ruby -e "$super_irb"
+		exit 0;;
+	"k") 
+		eval _f='$'$OPTIND
+		gen_space_keyword $_f
+		exit 0;;
+        esac
+done
+
+

data/tool/others/rubyatp

@@ -0,0 +1,42 @@
+#!/usr/bin/env ruby
+# coding: utf-8
+#
+# Author:: liqiang01
+# Date:: 2009-8-31 20:50:10
+
+=begin
+
+使用atp调用supertest case的adapter
+atp发起执行字段为:
+rubyatp #{@this.id}
+
+=end
+
+def run_case line
+	casenames = Dir.glob("#{line}/**/*_#{ARGV[0]}.rb")
+	puts "Got case"
+	if ( casenames.length == 0 )
+		puts "Case Not found"
+	else
+		puts casenames
+		puts "Run case"
+		casenames.each{|casei|
+			puts "Runing: #{casei}"
+			system( "source ~/.bash_profile; ruby #{casei}" )
+		}
+	end
+end
+
+# get case path from env param RUBYLIB
+dir = `source ~/.bash_profile; echo $RUBYLIB`.chop!
+libs = dir.split(":")
+libs.each{ |line|
+	if(! (line =~ /super-test/) )
+		line.gsub!(/lib/, "case")
+		run_case "#{line}/module"
+		run_case "#{line}/system"
+	end
+}
+
+
+

data/tool/others/supertest_install.sh

@@ -0,0 +1,34 @@
+#!/bin/bash
+current_dir=`pwd`
+current_home=$HOME
+echo "Now donwload to $current_dir/tmp"
+wget ftp://db-testing-space03.db01.baidu.com:/tmp/super-test/ -nH -r >/dev/null 2>&1
+echo "Now cp to $current_home/autotest"
+if [ -d $current_home/autotest ];then
+        echo "$current_home/autotest already exist"
+        echo "Are U sure to continue?[Y/N]"
+        read ans
+        if [ "$ans" = "Y" ];then
+                if [ -d $current_home/autotest/super-test ];then
+                        echo "$current_home/autotest/super-test already exist"
+                        echo "Now we exit. Bye"
+                        exit
+                fi
+                mv $current_dir/tmp/super-test $current_home/autotest/  
+        fi
+        if [ "$ans" = "N" ];then
+                echo "Bye"
+                exit
+        fi
+else
+        echo "Now mkdir $current_home/autotest"
+        mkdir $current_home/autotest
+        mv $current_dir/tmp/super-test $current_home/autotest/
+fi
+rm -r $current_dir/tmp
+echo "Now changing your .bash_profile"
+grep -v -P "RUBYLIB" ~/.bash_profile > ~/.bashtmp
+cp ~/.bashtmp ~/.bash_profile; rm ~/.bashtmp;
+echo 'export RUBYLIB="$HOME/autotest/super-test/lib"' >> ~/.bash_profile
+source ~/.bash_profile
+echo "Now finish, have fun:)"

data/tool/ts-agent/nshead.bft

@@ -0,0 +1,12 @@
+struct nshead_t
+{
+    unsigned short id;            
+    unsigned short version;       
+    unsigned int   log_id;
+    char           provider[16];
+    unsigned int   magic_num;
+    unsigned int   reserved;      
+    unsigned int   body_len;
+};
+
+nshead_t nshead;

data/tool/ts-agent/server.conf

@@ -0,0 +1,10 @@
+#stub名称
+stubs : s1,  s2,  s3
+#stub端口
+ports : 22222,  33333,  44444
+#stub工作模式
+actions : 0,  1,  2
+#stub应该返回的nshead文件名
+heads : /home/space/tools/app-test/search/space/module-test/case/test/stub_test/stub/1_s1.head,  /home/space/tools/app-test/search/space/module-test/case/test/stub_test/stub/1_s2.head,  /home/space/tools/app-test/search/space/module-test/case/test/stub_test/stub/1_s3.head
+#stub应该返回的文件名
+files : /home/space/tools/app-test/search/space/module-test/case/test/stub_test/stub/1_s1.stub,  /home/space/tools/app-test/search/space/module-test/case/test/stub_test/stub/1_s2.stub,  /home/space/tools/app-test/search/space/module-test/case/test/stub_test/stub/1_s3.stub

data/tool/ts-agent/server.tcl

@@ -0,0 +1,376 @@
+load bft.so
+load cnnt.so
+load mc_pack.so
+
+#=============vars=============
+set conf_path "server.conf"
+set debug "1"
+set wait_time 3000
+
+#配置项的内存镜像数组
+set stubs {}
+set ports {}
+set actions {}
+set heads {}
+set files {}
+
+#当前处理的head hash
+set head_arr(0) 0
+
+
+#========helper methods========
+
+proc log {info} {
+    global debug
+    if {$debug == 1} { 
+        puts $info
+    }
+}
+
+# 判断传入参数是否是注视
+proc is_cmt { line } {
+	if { [string compare [string index $line 0] "#"] == 0 } {
+		return 1
+	}
+
+	return 0
+}
+
+
+# 在如配置文件，初始化4个全局数组
+proc load_conf {} {
+	global conf_path
+	global stubs
+	global ports
+	global actions
+	global heads
+	global files
+	
+	log "\nloading conf..."
+	set conf [open $conf_path "r"]
+	while { [gets $conf line] != -1 } {
+		if { [is_cmt $line] == 0 } {
+			#log $line
+
+			set item [split $line :]
+			set key [string trim [lindex $item 0]]
+			set value [string trim [lindex $item 1]]
+
+			switch $key {
+			"stubs" { 	set stubs [split $value ","]
+					
+					log "loading stubs..."
+					set i 0
+					foreach item $stubs {
+						lset stubs $i [string trim $item]
+						log [lindex $stubs $i]
+						incr i
+					}
+				}
+			"ports" { 	set ports [split $value ","]
+					
+					log "loading ports..."
+					set i 0
+					foreach item $ports {
+						lset ports $i [string trim $item]
+						log [lindex $ports $i]
+						incr i
+					}
+					
+				}
+			"actions" { 	set actions [split $value ","]
+					
+					log "loading actions..."
+					set i 0
+					foreach item $actions {
+						lset actions $i [string trim $item]
+						log [lindex $actions $i]
+						incr i
+					}
+
+				}
+			"heads" {	set heads [split $value ","]
+					
+					log "loading heads..."
+					set i 0
+					foreach item $heads {
+						lset heads $i [string trim $item]
+						log [lindex $heads $i]
+						incr i
+					}
+				}
+			"files" { 	set files [split $value ","]
+					
+					log "loading files..."
+					set i 0
+					foreach item $files {
+						lset files $i [string trim $item]
+						log [lindex $files $i]
+						incr i
+					}
+
+				}
+			}
+		}
+	}
+}
+
+# 加载当前nshead
+# 成功加载:head变量被赋予head文件中的值; 加载失败: head变量的hash表被清空
+proc load_head { head_path } {
+	global head_arr
+	
+	#clear head array
+	array unset head_arr
+	set head_arr(0) 0
+
+	if { [file exists $head_path] == 0 } {
+                log "response mcpack file not exist and load head failed"
+        } else {
+		set hf [open $head_path "r"]
+		while { [gets $hf line] != -1 } {
+			if { [is_cmt $line] == 0 } {
+				set item [split $line :]
+				set key [string trim [lindex $item 0]]
+				set value [string trim [lindex $item 1]]
+				
+				switch $key {
+				"id" 	
+					{ 
+						set head_arr("id") $value 
+						log "loading id = $value"
+						log "loading id = $head_arr(\"id\")"
+					}
+				"version" 
+					{ 	
+						set head_arr("version") $value 
+						log "loading version = $value"
+						log "loading version = $head_arr(\"version\")"
+					}
+				"log_id" 
+					{ 	
+						set head_arr("log_id") $value 
+						log "loading log_id = $value"
+						log "loading log_id = $head_arr(\"log_id\")"
+					}
+				"provider" 
+					{ 	
+						set head_arr("provider") $value 
+						log "loading provider = $value"
+						log "loading provider = $head_arr(\"provider\")"
+					}
+				"magic_num" 
+					{ 
+						set head_arr("magic_num") $value 
+						log "loading magic_num = $value"
+						log "loading magic_num = $head_arr(\"magic_num\")"
+					}
+				"reserved" 
+					{ 
+						set head_arr("reserved") $value 
+						log "loading reserved = $value"
+						log "loading reserved = $head_arr(\"reserved\")"
+					}
+				}
+			}
+		}
+	}
+	
+}
+
+#启动所有桩
+proc start_srvs {} {
+	global stubs
+
+	set idx 0
+	foreach stub $stubs {
+		start_svr $idx
+
+		incr idx
+	}
+}
+
+#启动一个桩
+proc start_svr {idx} {
+        global stubs
+        global ports
+        global actions
+	global heads
+        global files
+
+	set stub [lindex $stubs $idx]
+	set port [lindex $ports $idx]
+	set action [lindex $actions $idx]
+	set head [lindex $heads $idx]
+	set file [lindex $files $idx]
+	
+	log "\nstarting stub..."
+	log "stub=$stub, port=$port, action=$action, file=$file"
+
+	cnnt new $stub
+	cnnt config $stub "server;ip-local:0.0.0.0;port-local:$port;type-data:raw;"
+	cnnt onrecv $stub svrOnRecv -id -name
+	cnnt start $stub
+	log [cnnt list]
+}
+
+# 根据桩的名称获取其索引
+# return：存在，返回索引值>=0 ; 不存在，返回-1
+proc get_idx_by_name { stub_name } {
+	global stubs
+
+	set idx 0
+	foreach stub $stubs {
+		if { [string compare $stub_name $stub] == 0 } {
+			return $idx
+		}
+		incr idx
+	}
+
+	return -1
+}
+
+# 桩回调函数
+proc svrOnRecv { data id name } {
+	global stubs
+	global actions
+
+	#重新加载配置！
+	load_conf
+
+	log "serve for $name..."
+	set idx [get_idx_by_name $name]
+	if { $idx < 0 } {
+		log "get index by name: $name failed"
+		exit
+	}
+	
+	set action [lindex $actions $idx]
+
+	switch $action {
+		"0" { action0 $data, $id, $name  $idx}
+		"1" { action1 $id, $name }
+		"2" { action2 $id, $name }
+	}
+
+}
+
+# 正常回调
+proc action0 { data id name idx} {
+	global stubs
+        global ports
+        global actions
+	global heads
+        global files
+
+	global head_arr
+
+	log "\n============action0(name=$name)==============\n"
+
+	set res_head 0
+        set res_body 0
+        set res_buf 0
+	
+	#create res_body and get body_len
+	#if file not exist, just return nshead
+	set mcpack 0
+	set has_body 0
+	
+	if { [file exists [lindex $files $idx]] == 0 } {
+		set has_body 0
+		log "response mcpack file not exist and just return nshead"
+	} else {
+		set has_body 1
+	}
+
+	if { $has_body == 1 } {
+		set f [open  [lindex $files $idx] "r"]
+		gets $f line
+		mc_pack text2pack $mcpack $line
+		set body_len [mc_pack size $mcpack]
+		mc_pack close $mcpack
+		close $f
+		set res_body [mc_pack export $mcpack]
+		log "body_len = $body_len"
+	}
+
+	#create res_head
+	set head [bft gen "nshead.bft"]
+	if { [file exists [lindex $heads $idx]] == 0 } {
+        	bft set $head nshead.magic_num 4218459028
+		log "response nshead file not exist and just return default nshead"
+	} else {
+		log "response nshead exist"
+
+		load_head [lindex $heads $idx]
+		bft set $head nshead.id $head_arr("id")
+		bft set $head nshead.version $head_arr("version")
+		bft set $head nshead.log_id $head_arr("log_id")
+		bft set $head nshead.provider $head_arr("provider")
+		bft set $head nshead.magic_num $head_arr("magic_num")
+		bft set $head nshead.reserved $head_arr("reserved")
+	}
+
+	if { $has_body == 1 } {
+        	bft set $head nshead.body_len $body_len
+	}
+        set res_head [bft export $head]
+
+	#create res_buf
+	if { $has_body == 1 } {
+		set res_buf $res_head$res_body
+	} else {
+		set res_buf $res_head
+	}
+	
+	#send
+	log " ===>> server sending..."
+	cnnt send $name $res_buf -id $id
+	
+}
+
+# 1 -- close connection after recv data, not to send data to client.
+proc action1 { id name } {
+	log "\n============action1(name=$name)==============\n"
+	cnnt delete $name -id $id
+}
+
+# 2 -- connection timeout. just to wait a long while(3s).
+proc action2 { id name } {
+	global wait_time
+
+	log "\n============action2(name=$name, wait=$wait_time)==============\n"
+	asyn_wait $wait_time
+	cnnt delete $name -id $id
+}
+
+proc asyn_wait { time } {
+	after $time [list set done ""]
+	vwait done
+}
+
+# 初始化检查
+proc init {} {
+	log "\niniting..."
+	global conf_path
+
+	#conf 
+	if { [file exists $conf_path]  == 0 } {
+		log "conf file $conf_path not exists!"
+		exit
+	}
+
+	#nshead.bft	
+	if { [file exists "nshead.bft"]  == 0 } {
+		log "nshead template nshead.bft not exists!"
+		exit
+	}
+}
+
+#==============main============
+
+init
+load_conf
+start_srvs
+
+vwait forever