tests/bugs/modalg_7/bug23378_1

   1 puts "========"
   2 puts "OCC23378"
   3 puts "========"
   4 puts ""
   5 ########################################
   6 # BRepAlgoAPI_Cut returns wrong result
   7 ########################################
   8
   9 # Restore the initial shape
  10 restore [locate_data_file bug23378_blower1.brep] b
  11
  12 # Test case body
  13 explode b
  14 bop b_1 b_2
  15 bopcut r
  16
  17 # Result of operation should be two shapes (checking)
  18 set oper_result [explode r]
  19 if {[llength $oper_result] != 2} {
  20   puts "ERRROR: Result of BrepAlgoAPI_Cut is unexpected"
  21 }
  22
  23 # Algorithmic check of r_1 shape
  24 renamevar r_1 result
  25 checkshape result
  26 checkprops result -s 864274
  27
  28 # Visualization check of r_1 shape
  29 vinit
  30 vsetdispmode 1
  31 vdisplay result
  32 vfit
  33 checkview -screenshot -3d -path ${imagedir}/${test_image}.png