tests/bugs/modalg_2/bug530

   1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
   2 puts "TODO OCC12345 ALL: Error : The square of result shape is"
   3
   4 puts "======="
   5 puts "OCC530"
   6 puts "======="
   7 puts ""
   8 ####################################
   9 ## Draw hungs up during performing bfuse operation
  10 ####################################
  11
  12 cpulimit 3000
  13
  14 restore [locate_data_file OCC530_1.brep] c1
  15 checkshape c1
  16
  17 restore [locate_data_file OCC530_2.brep] c2
  18 checkshape c2
  19
  20 if { [catch { bfuse result c1 c2 } catch_result] } {
  21     puts "Faulty OCC530 : function BFUSE works wrongly"
  22 } else {
  23     puts "OCC530 OK: function BFUSE works properly"
  24 }
  25
  26 set square 0
  27 set 2dviewer 0
  28
  29