tests/bugs/modalg_2/bug23530

   1 puts "========"
   2 puts "CR23530"
   3 puts "========"
   4 puts ""
   5 ##################################################
   6 ## Error in Draw command "checkshape": invalid face is not recognized
   7 ##################################################
   8
   9 restore [locate_data_file bug23530_BadFace.brep] result
  10 pcurve result
  11
  12 decho off
  13 set CheckLog [checkshape result]
  14 decho on
  15
  16 if { [regexp "BRepCheck_UnorientableShape" ${CheckLog}] != 1 } {
  17    puts "CR23530: Error"
  18 }