[occt.git] / tests / bugs / moddata_2 / bug366


puts "========================"
puts " OCC366 "
puts "========================"
puts ""
##################################################
## Checkshape says that face is valid but it inludes selfintersecting wire
##################################################

restore [locate_data_file buc61006.brep] result

decho off
set che [checkshape result]
decho on

if { [regexp "Faulty" $che] != 1 } {
   puts "Error : Checkshape command works wrongly"
}

set 2dviewer 0
Commit	Line	Data
0e94a94e	1
	2	puts "========================"
	3	puts " OCC366 "
	4	puts "========================"
	5	puts ""
	6	##################################################
	7	## Checkshape says that face is valid but it inludes selfintersecting wire
	8	##################################################
	9
	10	restore [locate_data_file buc61006.brep] result
	11
	12	decho off
	13	set che [checkshape result]
	14	decho on
	15
	16	if { [regexp "Faulty" $che] != 1 } {
	17	puts "Error : Checkshape command works wrongly"
	18	}
	19
	20	set 2dviewer 0
	21