tests/bugs/modalg_2/bug23606

   1 puts "============"
   2 puts "OCC23606"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Invalid result of pipe operation
   7 #######################################################################
   8
   9 restore [locate_data_file bug23606_base.brep] sh
  10 restore [locate_data_file bug23606_path.brep] w
  11 pipe result w sh
  12 set n [llength [explode result f]]
  13 if { ${n} != 10 } {
  14   puts "Error : bad number of faces"
  15 }
  16
  17 # Service parameters
  18 set mass -0.1
  19 set m -0.1