Integration part of tests of grid chl
[occt.git] / tests / bugs / xde / bug168
1 puts "========"
2 puts "OCC168"
3 puts "OCC279"
4 puts "========"
5 puts "Fix missing seam don't add seam "
6 puts ""
7
8 restore [locate_data_file OCC168.brep] a
9
10 fixshape result a 1e-7
11 puts [checkshape result]
12
13 set square 992.596
14
15 set prop "square"
16 set mass $square
17 regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
18
19 if { [string compare "$mass" "empty"] != 0 } {
20    if { $m == 0 } {
21       puts "Error : The command is not valid. The $prop is 0."
22    }
23    if { $mass > 0 } {
24       puts "The expected $prop is $mass"
25    }
26    #check of change of square is < 1%
27    if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
28       puts "Error : The $prop of result shape is $m"
29    }
30 } else {
31   if { $m != 0 } {
32      puts "Error : The command is not valid. The $prop is $m"
33   }
34 }
35
36 set 2dviewer 0
37