1
# This is the checker for for a simple 16 node test with opensm and osmtest
3
##############################################################################
5
# Start up the test applications
6
# This is the default flow that will start OpenSM only in 0x43 verbosity
7
# Return a list of process ids it started (to be killed on exit)
9
proc runner {simDir osmPath osmPortGuid} {
10
set osmStdOutLog [file join $simDir osm.stdout.log]
11
set osmLog [file join $simDir osm.log]
12
puts "-I- Starting: $osmPath -R updn -d2 -V -g $osmPortGuid ..."
13
set osmPid [exec $osmPath -R updn -d2 -V -f $osmLog -g $osmPortGuid > $osmStdOutLog &]
15
# start a tracker on the log file and process:
16
startOsmLogAnalyzer $osmLog
21
##############################################################################
23
# Check for the test results: make sure we got a "SUBNET UP"
24
# Return the exit code
25
proc checker {simDir osmPath osmPortGuid} {
27
set osmLog [file join $simDir osm.log]
29
puts "-I- Waiting max time of 100sec...."
31
if {[osmWaitForUpOrDeadWithTimeout $osmLog 1000000]} {
37
set ibdiagnetLog [file join $simDir ibdiagnet.log]
38
set cmd "ibdiagnet -o $simDir"
40
puts "-I- Invoking $cmd "
41
if {[catch {set res [eval "exec $cmd > $ibdiagnetLog"]} e]} {
42
puts "-E- ibdiagnet failed with status:$e"
46
# make sure directory is not remoevd