tests/bugs/modalg_2/bug492

   1
   2 puts "========="
   3 puts " OCC492 "
   4 puts "========="
   5 puts ""
   6 ##############################
   7 ## Exception occurs during fuse operation
   8 ##############################
   9
  10 restore [locate_data_file OCC492a.brep] a_1
  11 checkshape a_1
  12
  13 restore [locate_data_file OCC492b.brep] a_2
  14 checkshape a_2
  15
  16 if [catch {bfuse result a_1 a_2 } catch_result] {
  17     puts "Faulty OCC492: command FUSE works wrongly"
  18 } else {
  19     puts "OCC492 : function FUSE works without hangs up "
  20 }
  21 set square 64.2386
  22 set 3dviewer 1