tests/bugs/step/bug2845

   1 puts "========"
   2 puts "OCC2845"
   3 puts "========"
   4 puts ""
   5 ####################################################
   6 ## Regression of work of selections for STEP translator.
   7 ####################################################
   8
   9 set BugNumber OCC2845
  10 set filepath [locate_data_file extref.stp]
  11 if [catch { stepread $filepath a * } res] {
  12     puts "Faulty ${BugNumber} : here is reading problem"
  13 } else {
  14     tpcompound result
  15     set info [listtypes xst-transferrable-roots]
  16     if {$info == ""} {
  17         puts "Faulty ${BugNumber}"
  18     } else {
  19         puts "OK ${BugNumber}"
  20     }
  21 }
  22
  23 checkview -display result -2d -path ${imagedir}/${test_image}.png
  24