tests/bugs/modalg_5/bug24086

   1 puts "============"
   2 puts "OCC24086"
   3 puts "============"
   4 puts ""
   5 #########################################################################
   6 # IsValid of result-Shape of BRepFeat_SplitShape returns False
   7 #########################################################################
   8
   9 pload QAcommands
  10
  11 restore [locate_data_file bug24086_face.brep] face
  12 restore [locate_data_file bug24086_wire.brep] wire
  13
  14 vinit
  15 set info [OCC24086 face wire]
  16 if { [regexp "INVALID" $info] == 1 } {
  17     puts "Error: result shape is invalid"
  18 } else {
  19     puts "OK: result shape is valid"
  20 }
  21
  22 vfit
  23 vdisplay face
  24 vdisplay wire
  25
  26 set only_screen 1
  27
  28
  29
  30
  31
  32
  33