Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug36
CommitLineData
a87752f3 1puts "========"
2puts "OCC36"
3puts "========"
4
5pload XDE
6
7if [catch { igesbrep [locate_data_file OCC36.igs] a * } res] {
8 puts "Warning OCC36: here is reading problem"
9} else {
10 puts "Reading OCC36 OK"
11
12 tpcompound r
13 dchrono h2 reset
14 dchrono h2 start
15 sewing result 1.e-7 r
16 dchrono h2 stop
17 set q2 [ dchrono h2 show ]
18 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
19 puts "$z2"
20 if { $z2 > 30 } {
21 puts "Elapsed time is more then 30 seconds - Faulty"
22 } else {
23 puts "Elapsed time is less then 30 seconds - OK"
24 }
25}
26
27set 2dviewer 0
28
29