tests/bugs/step/bug32310

   1 puts "===================================="
   2 puts "0032310: Data Exchange - Invalid STEP export/import of backslashes in names \[Regression since OCCT 7.5.0\]"
   3 puts "===================================="
   4 puts ""
   5
   6 pload DCAF
   7 Close D -silent
   8
   9 XNewDoc D
  10 box box 1 1 1
  11 XAddShape D box
  12
  13 SetName D 0:1:1:1 "a'''\\b\n\t\\c\\\\\\\\"
  14 set original_name [GetName D 0:1:1:1]
  15
  16 WriteStep D "$imagedir/${casename}.stp"
  17 Close D
  18
  19 ReadStep D "$imagedir/${casename}.stp"
  20 set imported_name [GetName D 0:1:1:1]
  21
  22 file delete "$imagedir/${casename}.stp"
  23
  24 if {$original_name != $imported_name} {
  25   puts "Error: 'Incorrect exporting name: $original_name != $imported_name"
  26 }
  27
  28 Close D