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

puts "================"
puts "OCC859"
puts "SAM1637"
puts "================"
puts ""
#####################
## Attached shape is not sewed.
##################### 

restore [locate_data_file OCC859.brep] a
checkshape a

sewing result a

freebounds result 0.1

set list [statshape result_o]

if {[llength ${list}] > 4} {
   puts "Faulty OCC859: here is sewing problem"
}

set 2dviewer 1
Commit	Line	Data
352ffd73	1	puts "================"
	2	puts "OCC859"
	3	puts "SAM1637"
	4	puts "================"
	5	puts ""
	6	#####################
	7	## Attached shape is not sewed.
	8	#####################
	9
	10	restore [locate_data_file OCC859.brep] a
	11	checkshape a
	12
	13	sewing result a
	14
	15	freebounds result 0.1
	16
	17	set list [statshape result_o]
	18
	19	if {[llength ${list}] > 4} {
	20	puts "Faulty OCC859: here is sewing problem"
	21	}
	22
	23	set 2dviewer 1