tests/bugs/moddata_1/bug161

   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