tests/bugs/modalg_2/bug472_2

   1 puts "TODO OCC25917 ALL: Error : The command is not valid. The square is"
   2 if { [regexp {Debug mode} [dversion]] } {
   3   puts "TODO OCC25917 ALL: TEST INCOMPLETE"
   4   puts "TODO OCC25917 ALL: Tcl Exception"
   5 }
   6
   7 puts "========================"
   8 puts " OCC472 "
   9 puts "(case 2)"
  10 puts "========================"
  11 puts ""
  12 #####################################################
  13 ## Bad result of Fuse Operation (Cut&Common - bad too). SAM1470 (#2634)
  14 #####################################################
  15
  16 restore [locate_data_file OCC472a.brep] b1
  17 checkshape b1
  18
  19 restore [locate_data_file OCC472b.brep] b2
  20 checkshape b2
  21
  22 bcommon result b1 b2
  23
  24 set square 0
  25 set 2dviewer 0