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


puts "========"
puts "OCC161"
puts "========"
puts ""
###########################################################
## The face provided in attachment has single wire that is misoriented, i.e has
## internal part outside. The checkshape command in DRAW should report that error
## situation, while it does not.
###########################################################

restore [locate_data_file OCC161.brep] result

decho off
set che [checkshape result]
decho on

if { [regexp {Faulty} $che] != 1 } {
    puts "Faulty OCC161 : Checkshape command works wrongly"
} else {
    puts "OCC161 OK : Checkshape command works properly"
}

set 2dviewer 0
Commit	Line	Data
0e94a94e	1
	2	puts "========"
	3	puts "OCC161"
	4	puts "========"
	5	puts ""
	6	###########################################################
	7	## The face provided in attachment has single wire that is misoriented, i.e has
	8	## internal part outside. The checkshape command in DRAW should report that error
	9	## situation, while it does not.
	10	###########################################################
	11
	12	restore [locate_data_file OCC161.brep] result
	13
	14	decho off
	15	set che [checkshape result]
	16	decho on
	17
	18	if { [regexp {Faulty} $che] != 1 } {
	19	puts "Faulty OCC161 : Checkshape command works wrongly"
	20	} else {
	21	puts "OCC161 OK : Checkshape command works properly"
	22	}
	23
	24	set 2dviewer 0