test.tcl

tcl例子脚本

##################################################################################
# $Id$
# Usage:
#    ./test [-uuser] [-ppassward] [-iip_address]  test_001 ...
# or ./test [-uuser] [-ppassward] [-iip_address] [-ccommand_file] cmd
# or ./test [-uuser] [-ppassward] [-iip_address] [-sscript_file] script
##################################################################################
package require Expect

source global.tcl
source commonLib.tcl

# initialize variables
set cmdFile ""
set tList $argv
set execScript ""

# process options
set endOptIndex -1
foreach arg $argv {
    if {![string match "-\[a-zA-Z]*" $arg]} {
        break
    }

    # inc end option index
    incr endOptIndex

    send_user "arg: $arg\n"
    # get option flag and option value
    set optFlg [string range $arg 1 1]
    send_user "optFlg: $optFlg\n"
    set optVal [string range $arg 2 end]
    send_user "optVal:$optVal\n"
    dbgLog "$optFlg $optVal"
    if {$optVal == ""} {
        dbgLog "option value is null: -$optFlg"
        return -1
    }

    switch $optFlg {
        "u" {
            set g_user $optVal
            dbgLog "user: $g_user"
        }
        "p" {
            set g_passwd $optVal
            dbgLog "password: $g_passwd"
        }
        "i" {
            set g_devip $optVal
            dbgLog "devip: $g_devip"
        }
        "c" {
            set cmdFile $optVal
            dbgLog "cmdFile: $cmdFile"
        }
        "s" {
            set execScript $optVal
            dbgLog "execScript: $execScript"
        }
        default {
            puts "unknown option: -$optFlg"
            return -1
        }
    } ;# end switch
} ;# end foreach

send_user "endOptIndex:$endOptIndex\n"
# remove options from list
if {$endOptIndex != -1} {
    set tList [lreplace $argv 0 $endOptIndex]
}

dbgLog "tList is: $tList"


# create log dir
if { ![file exist "log"] || ![file isdirectory "log"] } {
    puts "please create directory \"log\""
    return -1
}

# read current time
set clicks [clock clicks]
set tstr [clock format $clicks -format "%y%m%d%I%M%S"]

# open log file
log_file "test.log"

# open brief log file
set g_bLogFd [open "test.log" w]

# start testing
foreach tItem $tList {
    switch $tItem {
        #"sys_001" { ;# test group sys_001
        #    source snmp.exp
        #}
        "cmd" { ;# exec cmd file
            source tcmd.tcl
        }
        #"script" { ;# exec script file
        #    if {$execScript == ""} {
        #        puts "Please specify script name using -s option"
        #        return -1
        #    }
        #    source $execScript
        #}

        default {
            puts "do you want to test \"$tItem\"\?"
        }
    }
}

close $g_bLogFd




#set ipaddr [lindex $argv 0]
#set cmdFile [lindex $argv 1]

#source tcmd.tcl