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
|
puts "================"
puts "OCC23065"
puts "================"
puts ""
##########################################################################################
# This is desirable to add general DRAW command to estimate visualization performance
##########################################################################################
set BugNumber OCC23065
vinit
set Log [vfps]
set status 0
if { [llength ${Log}] == 5} {
set word1 [string compare [lindex ${Log} end] "msec"]
set word2 [string compare [lindex ${Log} end-2] "CPU:"]
set word3 [string compare [lindex ${Log} end-4] "FPS:"]
if { ${word1} == 0 && ${word2} == 0 && ${word3} == 0 } {
set status 0
} else {
set status 1
}
} else {
set status 1
}
# Resume
puts ""
if { ${status} == 0 } {
puts "OK ${BugNumber}"
} else {
puts "Faulty ${BugNumber}"
}
|
