tests/bugs/modalg_3/bug605

   1
   2 puts "========================"
   3 puts " OCC605"
   4 puts "========================"
   5 puts ""
   6 ##############################
   7 ## No any faces in result of pipe command.
   8 ##############################
   9 pload ALL
  10
  11 restore [locate_data_file OCC605a.brep] w1
  12 settolerance w1 1.e-7
  13 checkshape w1
  14 restore [locate_data_file OCC605b.brep] w2
  15 checkshape w2
  16
  17 if { [catch {pipe result w2 w1 } catch_result] } {
  18     puts "Faulty OCC605: function PIPE works with exception."
  19 } else {
  20     explode result f
  21     set nom 0
  22     set j 1
  23     repeat 20 {
  24         if { [regexp {FACE} [whatis result_$j]] != 1 } {
  25             break
  26         } else {
  27             set nom [expr $nom + 1]
  28         }
  29         incr j
  30     }
  31     if { $nom == 0 } {
  32         puts " Faulty OCC605: Result of PIPE operation is incorrect !!! "
  33     } else {
  34         puts "OCC605 OK : Result of PIPE operation is NOT empty shell!!! "
  35    }
  36 }
  37
  38 checkprops result -s 20.6253
  39 checkshape result
  40 checkview -display result -2d -path ${imagedir}/${test_image}.png