tests/bugs/moddata_2/bug25

   1 puts "================"
   2 puts "OCC25"
   3 puts "================"
   4 puts ""
   5
   6 restore [locate_data_file OCC25-1.brep] sh1
   7
   8 decho off
   9 set che [checkshape sh1]
  10 decho on
  11
  12 if { [regexp {Faulty} $che ] == 1 } {
  13     puts "Faulty OCC25 (case 1): Checkshape says that the wire on face has bad orientation, but it is not truth"
  14 } else {
  15     puts "OCC25 OK (case 1): Checkshape works properly"
  16 }
  17
  18 # ================================================
  19 restore [locate_data_file OCC25-2.brep] sh2
  20
  21 decho off
  22 set che [checkshape sh2]
  23 decho on
  24
  25 if { [regexp {BRepCheck_BadOrientationOfSubshape} $che] && [regexp {BRepCheck_UnorientableShape} $che]} {
  26     puts " OCC25 (case 2) OK: Checkshape works properly"
  27 } else {
  28     puts "Faulty OCC25 (case 2): Checkshape works wrongly"
  29 }
  30
  31 compound sh1 sh2 result
  32
  33 set 2dviewer 0
  34
  35