tests/bugs/modalg_6/bug26016

   1 puts "========"
   2 puts "OCC26016"
   3 puts "========"
   4 puts ""
   5 ##@@###########################
   6 # BRepPrimAPI_MakeRevol crash
   7 ###############################
   8
   9 smallview
  10
  11 restore [locate_data_file OCC26016-revolve-crash.brep] a
  12 revol r a 0 0 0 0 1 0 90
  13 set bug_info [checkshape r]
  14
  15 if {[string compare $bug_info "This shape seems to be valid"] != 0} {
  16   puts "ERROR: OCC26016 is reproduced"
  17 }
  18
  19 donly r
  20 fit
  21 checkview -screenshot -2d -path ${imagedir}/${test_image}.png