tests/bugs/moddata_2/bug23092

   1 puts "================"
   2 puts "OCC23092"
   3 puts "================"
   4 puts ""
   5 ###################################################################################################
   6 # Error in BRepProj_Projection algorithm: some edges of resulting projected wire are duplicated
   7 ###################################################################################################
   8
   9 set BugNumber OCC23092
  10
  11 restore [locate_data_file OCC23092-bal8h.brep] h
  12 restore [locate_data_file OCC23092-bal8s.brep] s
  13 set info1 [ prj r s h 0 0 1 ]
  14 set word1 [string compare [lindex ${info1} end] "r_1"]
  15 don r_1 r_2
  16 explode r_1 E
  17 explode r_2 V
  18 set info2 [ don r_1_10 r_2_1 r_2_2 ]
  19 set word2 [string compare [lindex ${info2} end] "r_1_10"]
  20
  21 # Resume
  22 puts ""
  23 if { ${word1} == 0 && ${word2} == 0 } {
  24    puts "OK ${BugNumber}"
  25 } else {
  26    puts "Faulty ${BugNumber}"
  27 }
  28