1
# This is the checker for for running opensm and do not exit ever
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 -g $osmPortGuid ..."
13
set osmPid [exec $osmPath -d2 -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
24
# Return the exit code
25
proc checker {simDir osmPath osmPortGuid} {
26
set osmTestPath [file join [file dirname $osmPath] osmtest]
27
set osmTestLog [file join $simDir osmtest.log]
28
set osmTestStdOutLog [file join $simDir osmtest.stdout.log]
29
set osmTestInventory [file join $simDir osmtest.dat]
31
# wait for the SM up or dead
32
set osmLog [file join $simDir osm.log]
33
if {[osmWaitForUpOrDead $osmLog]} {
37
puts "-I- Looping forever ..."