0024157: Parallelization of assembly part of BO
[occt.git] / tests / bugs / modalg_4 / bug62
1 set os "ALL"
2
3 if {[array get env os_type] != ""} {
4   set os $env(os_type)
5 }
6
7 if {[string compare $os "MacOS"] == 0} {
8   #puts "TODO #23828 MacOS: Tcl Exception: sh is not a topological shape!!!"
9   #puts "TODO #23828 MacOS: TEST INCOMPLETE"
10 } else {
11   #puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
12   puts "TODO ?OCC12345 ALL: Error : The square of result shape is"
13 }
14
15 puts "================"
16 puts "OCC62"
17 puts "BUC61001"
18 puts "================"
19
20 cpulimit 1400
21 restore [locate_data_file OCC62.brep] sh 
22
23 explode sh 
24 checkshape sh
25
26 bfuse res1 sh_1 sh_3
27 checkshape res1
28
29 bfuse res2 res1 sh_2 
30 checkshape res2
31
32 bfuse res3 res2 sh_6
33 checkshape res3
34
35 bfuse res4 res3 sh_4
36 checkshape res4
37
38 bfuse res5 res4 sh_5
39 checkshape res5
40
41 renamevar res5 result
42
43 set OCC62_square 1.23063e+7
44 puts "The expected square is ${OCC62_square}"
45
46 set sq_persent 0.03
47 regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
48 if { (${OCC62_square} != 0 && [expr abs(${OCC62_square} - $m)/${OCC62_square}] > ${sq_persent}) || (${OCC62_square} == 0 && $m != 0) } {
49    puts "Error : The square of result shape is $m"
50 }
51
52 set 2dviewer 0