tests/bugs/xde/bug21802

   1 puts "=========="
   2 puts "OCC21802"
   3 puts "=========="
   4 puts ""
   5 ###########################################################
   6 # Not all names are transferred from STEP to IGES via XDE
   7 ###########################################################
   8
   9 ReadStep d [locate_data_file bug21802_as1-oc-214.stp]
  10 catch {exec rm ${imagedir}/bug21802_as1-oc-214.igs}
  11 WriteIges d ${imagedir}/bug21802_as1-oc-214.igs
  12
  13 set is21802fixed "FALSE"
  14 set file21802 [open ${imagedir}/bug21802_as1-oc-214.igs RDONLY]
  15 while {[eof $file21802] == 0} {
  16   set file21802line [string trim [gets $file21802]]
  17   if {[string first "l-bracke" $file21802line] != -1} {
  18     set is21802fixed "TRUE"
  19   }
  20 }
  21 close $file21802
  22
  23 if {[string compare $is21802fixed "FALSE"] == 0} {
  24   puts "ERROR: OCC21802 is reproduced"
  25 }