0022898: IGES import fails in german environment
[occt.git] / tests / bugs / vis / bug23065
CommitLineData
809eca9d 1puts "================"
2puts "OCC23065"
3puts "================"
4puts ""
5##########################################################################################
6# This is desirable to add general DRAW command to estimate visualization performance
7##########################################################################################
8
9set BugNumber OCC23065
10
11vinit
12set Log [vfps]
13
14set status 0
15if { [llength ${Log}] == 5} {
16 set word1 [string compare [lindex ${Log} end] "msec"]
17 set word2 [string compare [lindex ${Log} end-2] "CPU:"]
18 set word3 [string compare [lindex ${Log} end-4] "FPS:"]
19 if { ${word1} == 0 && ${word2} == 0 && ${word3} == 0 } {
20 set status 0
21 } else {
22 set status 1
23 }
24} else {
25 set status 1
26}
27
28# Resume
29puts ""
30if { ${status} == 0 } {
31 puts "OK ${BugNumber}"
32} else {
33 puts "Faulty ${BugNumber}"
34}