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
  10 restore [locate_data_file OCC605a.brep] w1
  11 checkshape w1
  12 restore [locate_data_file OCC605b.brep] w2
  13 checkshape w2
  14
  15 if { [catch {pipe result w2 w1 } catch_result] } {
  16     puts "Faulty OCC605: function PIPE works with exception."
  17 } else {
  18     explode result f
  19     set nom 0
  20     set j 1
  21     repeat 20 {
  22         if { [regexp {FACE} [whatis result_$j]] != 1 } {
  23             break
  24         } else {
  25             set nom [expr $nom + 1]
  26         }
  27         incr j
  28     }
  29     if { $nom == 0 } {
  30         puts " Faulty OCC605: Result of PIPE operation is incorrect !!! "
  31     } else {
  32         puts "OCC605 OK : Result of PIPE operation is NOT empty shell!!! "
  33    }
  34 }
  35
  36 set square 20.6253
  37 set 2dviewer 0