0025987: Integration part of modified unstable test cases
[occt.git] / tests / bugs / modalg_4 / bug62
CommitLineData
34a0b446 1puts "TODO OCC25735 ALL: Faulty shapes in variables faulty_1 to"
9aa684ed 2puts "TODO OCC22033 ALL: Error : The square of result shape is"
34a0b446 3
a87752f3 4puts "================"
5puts "OCC62"
6puts "BUC61001"
7puts "================"
8
9cpulimit 1400
10restore [locate_data_file OCC62.brep] sh
11
52d45841 12#Delete invalid (in terms of bug#25109) triangulation
13tclean sh
14
a87752f3 15explode sh
352ffd73 16checkshape sh
a87752f3 17
18bfuse res1 sh_1 sh_3
352ffd73 19checkshape res1
a87752f3 20
21bfuse res2 res1 sh_2
352ffd73 22checkshape res2
a87752f3 23
24bfuse res3 res2 sh_6
352ffd73 25checkshape res3
a87752f3 26
27bfuse res4 res3 sh_4
352ffd73 28checkshape res4
a87752f3 29
30bfuse res5 res4 sh_5
352ffd73 31checkshape res5
a87752f3 32
33renamevar res5 result
34
91bb31f3 35set OCC62_square 1.23063e+7
36puts "The expected square is ${OCC62_square}"
37
38set sq_persent 0.03
39regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
40if { (${OCC62_square} != 0 && [expr abs(${OCC62_square} - $m)/${OCC62_square}] > ${sq_persent}) || (${OCC62_square} == 0 && $m != 0) } {
41 puts "Error : The square of result shape is $m"
42}
43
a87752f3 44set 2dviewer 0