6 restore [locate_data_file OCC169.brep] a
15 regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
17 if { [string compare "$mass" "empty"] != 0 } {
19 puts "Error : The command is not valid. The $prop is 0."
22 puts "The expected $prop is $mass"
24 #check of change of square is < 1%
25 if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
26 puts "Error : The $prop of result shape is $m"
30 puts "Error : The command is not valid. The $prop is $m"