tests/bugs/moddata_2/bug236

   1 puts "TODO OCC12345 ALL: Faulty OCC236"
   2
   3 puts "================"
   4 puts "OCC236"
   5 puts "================"
   6 puts ""
   7 #######################################################
   8 ##Result of intersection of two surfaces of linear extrusion is incorrect.
   9 #######################################################
  10
  11 restore [locate_data_file OCC236a.rle] su1
  12 ############### checkshape su1 # is not a topological shape
  13 restore [locate_data_file OCC236b.rle] su2
  14 ############### checkshape su2 # is not a topological shape
  15
  16 intersect result su1 su2
  17
  18 set che [directory]
  19 set err [lindex $che [expr [llength $che] - 1]]
  20 if { $err != "result_2"} {
  21     puts "Faulty OCC236"
  22 } else {
  23     puts "OCC236 OK (first checking) : Intersection command works properly"
  24     regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_1] full num
  25     if { $num != 0 } {
  26         puts " Faulty OCC236 (second checking): Result result_1 is UNclosed !!! "
  27     } else {
  28         puts " OCC236 OK (second checking): Result result_1 is closed !!! "
  29         puts ""
  30     }
  31     regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_2] full num
  32     if { $num != 0 } {
  33         puts " Faulty OCC236 (second checking): Result result_2 is UNclosed !!! "
  34     }  else {
  35         puts " OCC236 OK (second checking): Result result_2 is closed !!! "
  36     }
  37 }
  38
  39 set 2dviewer 0
  40