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

puts "================"
puts "OCC861"
puts "SAM1626"
puts "================"
puts ""
######################################################
## Invalid free boundary get by command DRAW "freebound" on attached shape.
######################################################

restore [locate_data_file OCC859.brep] result
checkshape result

freebounds result 0.1

set list [statshape result_o]

if {[llength ${list}] > 4} {
   puts "Faulty OCC861"
}

set 2dviewer 1
Commit	Line	Data
352ffd73	1	puts "================"
	2	puts "OCC861"
	3	puts "SAM1626"
	4	puts "================"
	5	puts ""
	6	######################################################
	7	## Invalid free boundary get by command DRAW "freebound" on attached shape.
	8	######################################################
	9
	10	restore [locate_data_file OCC859.brep] result
	11	checkshape result
	12
	13	freebounds result 0.1
	14
	15	set list [statshape result_o]
	16
	17	if {[llength ${list}] > 4} {
	18	puts "Faulty OCC861"
	19	}
	20
	21	set 2dviewer 1
	22