tests/bugs/xde/bug4648

   1 puts "TODO OCC12345 ALL: Error :  is WRONG because number of "
   2
   3 puts "================"
   4 puts "OCC4648"
   5 puts "================"
   6 puts ""
   7 #################################
   8 # Problems with writing to STEP
   9 #################################
  10
  11 set BugNumber OCC4648
  12
  13 igesbrep [locate_data_file annie_surf.igs] a *
  14
  15 file delete ${imagedir}/annie
  16 stepwrite 0 a ${imagedir}/annie
  17 if { ![file exists ${imagedir}/annie] } {
  18     puts "Faulty ${BugNumber} : There is not file"
  19 }
  20 catch {exec chmod 777 ${imagedir}/annie}
  21
  22 if [catch { stepread ${imagedir}/annie b *} res] {
  23     puts "Faulty ${BugNumber} : stepread is wrong"
  24 } else {
  25     renamevar b_1 res
  26     checknbshapes res -ref [nbshapes a]
  27 }
  28
  29 file delete ${imagedir}/annie
  30
  31