tests/bugs/modalg_5/bug24086

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