0025138: SIGSEGV when sweeping along helix
[occt.git] / tests / bugs / moddata_2 / bug76
1 puts "================"
2 puts "OCC76"
3 puts "================"
4 puts ""
5
6 set vol1_exp 3050.42
7 set vol2_exp 10195.3
8
9 restore [locate_data_file shading_177.brep] sh1 
10 checkshape sh1
11 regexp {Mass +: +([-0-9.+eE]+)} [vprops sh1] full l1
12
13 restore [locate_data_file OCC76-2.brep] sh2
14 checkshape sh2
15 regexp {Mass +: +([-0-9.+eE]+)} [vprops sh2] full l2
16
17 if { [expr abs([expr $l1 - $vol1_exp])] > 0.00999} {    
18    puts "Error : Volume of OCC76-1.brep is calculated wrongly becuase $vol1_exp value must be but $l1 is"
19 } else {
20   puts " Volume of OCC76-1.brep is right calculated"
21 }
22
23 if { [expr abs([expr $l2 - $vol2_exp])] > 0.00999} {
24    puts "Error : Volume of OCC76-2.brep is calculated wrongly because $vol2_exp value must be but $l2 is"
25 } else {
26   puts " Volume of OCC76-2.brep is right calculated"
27 }