[occt.git] / tests / bugs / xde / bug169

puts "========"
puts "OCC169"
puts "========"
puts ""

restore [locate_data_file OCC169.brep] a

fixshape result a 1e-7
checkshape result

set square 6.27959

set prop "square"
set mass $square
regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m

if { [string compare "$mass" "empty"] != 0 } {
   if { $m == 0 } {
      puts "Error : The command is not valid. The $prop is 0."
   }
   if { $mass > 0 } {
      puts "The expected $prop is $mass"
   }
   #check of change of square is < 1%
   if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } {
      puts "Error : The $prop of result shape is $m"
   }
} else {
  if { $m != 0 } {
     puts "Error : The command is not valid. The $prop is $m"
  }
}

set 2dviewer 0
Commit	Line	Data
0e94a94e	1	puts "========"
	2	puts "OCC169"
	3	puts "========"
	4	puts ""
	5
	6	restore [locate_data_file OCC169.brep] a
	7
	8	fixshape result a 1e-7
352ffd73	9	checkshape result
0e94a94e	10
	11	set square 6.27959
	12
	13	set prop "square"
	14	set mass $square
	15	regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m
	16
	17	if { [string compare "$mass" "empty"] != 0 } {
	18	if { $m == 0 } {
	19	puts "Error : The command is not valid. The $prop is 0."
	20	}
	21	if { $mass > 0 } {
	22	puts "The expected $prop is $mass"
	23	}
	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"
	27	}
	28	} else {
	29	if { $m != 0 } {
	30	puts "Error : The command is not valid. The $prop is $m"
	31	}
	32	}
	33
	34	set 2dviewer 0
	35