tests/bugs/xde/bug6283

   1 puts "============"
   2 puts "OCC6283"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Unstable work fixshape on attached shape (different number of warnings)
   7 ######################################################
   8
   9 set BugNumber OCC6283
  10
  11 set list [stepread [locate_data_file wgehaeuse_surface.stp] a *]
  12
  13 if {[lsearch ${list} Error] > -1} {
  14     puts "${BugNumber} : Error during reading attached IGES file"
  15 } else {
  16     tpcompound comp
  17     if [catch { set fixlist [fixshape result comp 1e-7] } res] {
  18         puts "${BugNumber}: Error during fixshape"
  19     } else {
  20         set index [string first "Segments were disordered; fixed\n" ${fixlist}]
  21         if {$index != -1} {
  22             puts "Faulty ${BugNumber}"
  23         } else {
  24             puts "OK ${BugNumber}"
  25         }
  26         checkprops result -s 2.22665e+06
  27 checkshape result
  28         checkview -display result -2d -path ${imagedir}/${test_image}.png
  29     }
  30 }
  31