tests/bugs/modalg/bug629

   1 puts "TODO OCC12345 ALL: Error : The square of result shape is"
   2 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
   3
   4 puts "================"
   5 puts "OCC629"
   6 puts "================"
   7 puts ""
   8 ##########################################
   9 ## Exception during attempt to create solid by command PIPE
  10 ##########################################
  11
  12 restore [locate_data_file OCC629a.brep] a
  13 puts [checkshape a]
  14
  15 restore [locate_data_file OCC629b.brep] b
  16 puts [checkshape b]
  17
  18 if [catch {pipe result a b } catch_result] {
  19     puts "Faulty OCC629: function PIPE works wrongly"
  20 } else {
  21     puts "OCC629 OK: function PIPE works properly"
  22 }
  23
  24 set square 0
  25 set 2dviewer 0