1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
# This is the checker for for a fat-tree routing check
##############################################################################
#
# Start up the test applications
# This is the default flow that will start OpenSM only in 0x43 verbosity
# Return a list of process ids it started (to be killed on exit)
#
proc runner {simDir osmPath osmPortGuid} {
set osmStdOutLog [file join $simDir osm.stdout.log]
set osmLog [file join $simDir osm.log]
puts "-I- Starting: $osmPath -R ftree -d2 -V -g $osmPortGuid ..."
#set osmPid [exec $osmPath -f $osmLog -V -g $osmPortGuid > $osmStdOutLog &]
set osmPid [exec $osmPath -R ftree -f $osmLog -V -g $osmPortGuid > $osmStdOutLog &]
#set osmPid [exec valgrind --tool=memcheck -v --log-file-exactly=/tmp/kliteyn/osm.valgrind.log $osmPath -R ftree -f $osmLog -V -g $osmPortGuid > $osmStdOutLog &]
# start a tracker on the log file and process:
startOsmLogAnalyzer $osmLog
return $osmPid
}
##############################################################################
#
# Check for the test results
# 1. Make sure we got a "SUBNET UP"
# 2. Run ibdiagnet to check routing
# 3. Check that fat-tree routing has FAILED
# 4. At each step, return the exit code in case of any failure
#
proc checker {simDir osmPath osmPortGuid} {
global env
set osmLog [file join $simDir osm.log]
puts "-I- Waiting max time of 100sec...."
if {[osmWaitForUpOrDeadWithTimeout $osmLog 1000000]} {
return 1
}
after 5000
set ibdiagnetLog [file join $simDir ibdiagnet.log]
set cmd "ibdiagnet -o $simDir"
puts "-I- Invoking $cmd "
if {[catch {set res [eval "exec $cmd > $ibdiagnetLog"]} e]} {
puts "-E- ibdiagnet failed with status:$e"
return 1
}
after 5000
# Check that the fat-tree routing has run to completion.
# If it has, then opensm-ftree-ca-order.dump file should exist
# in the simulation directory.
set osmFtreeCAOrderDump [file join $simDir opensm-ftree-ca-order.dump]
if {[file exists $osmFtreeCAOrderDump]} {
puts "-E- Fat-tree CA ordering file exists"
puts "-E- Fat-tree routing was expected to fail, but it hasn't"
return 1
} else {
puts "-I- Fat-tree CA ordering file doesn't exist"
puts "-I- Fat-tree routing has failes as expected"
}
return 0
}
|
