Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_2 / bug452_3
CommitLineData
a87752f3 1
2puts "========"
3puts "GER60239"
4puts "OCC452"
5puts "(case 3)"
6puts "========"
7puts ""
8
9restore [locate_data_file CTO900_ger60239a.rle] a
10set che [checkshape a]
11if { [regexp {Faulty} $che ] == 1 } {
12 puts "Faulty OCC452 (shape 5): Source shape is invalid. It was detected by Checkshape command"
13} else {
14 puts "OCC452 OK (shape 5): Source shape is valid"
15}
16
17restore [locate_data_file CTO900_ger60239b.rle] b
18set che [checkshape b]
19if { [regexp {Faulty} $che ] == 1 } {
20 puts "Faulty OCC452 (shape 6): Source shape is invalid. It was detected by Checkshape command"
21} else {
22 puts "OCC452 OK (shape 6): Source shape is valid"
23}
24
25dchrono h2 reset
26dchrono h2 start
27
28bfuse result a b
29#checkshape -top res
30
31dchrono h2 stop
32set q2 [ dchrono h2 show ]
33regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z2
34puts "$z2"
35if { $z2 > 50 } {
36 puts "Elapsed time is more then 50 seconds - Faulty"
37} else {
38 puts "Elapsed time is less then 50 seconds - OK"
39}
40set square 3468.6
41set 2dviewer 0
42
43