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 ###########################################################
12 restore [locate_data_file OCC161.brep] result
15 set che [checkshape result]
18 if { [regexp {Faulty} $che] != 1 } {
19 puts "Faulty OCC161 : Checkshape command works wrongly"
21 puts "OCC161 OK : Checkshape command works properly"