[occt.git] / tests / bugs / moddata / bug252_1


puts "================"
puts "OCC252"
puts "================"
puts ""

pload QAcommands

restore [locate_data_file OCC252.brep] a 

puts [checkshape a]

explode a w

OCC252 result a_466 a 0

regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len

if { ${len} <= 0 } {
   puts "Error : OCC252"
}

set 2dviewer 0
Commit	Line	Data
0e94a94e	1
	2	puts "================"
	3	puts "OCC252"
	4	puts "================"
	5	puts ""
	6
	7	pload QAcommands
	8
	9	restore [locate_data_file OCC252.brep] a
	10
	11	puts [checkshape a]
	12
	13	explode a w
	14
	15	OCC252 result a_466 a 0
	16
	17	regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len
	18
	19	if { ${len} <= 0 } {
	20	puts "Error : OCC252"
	21	}
	22
	23	set 2dviewer 0