tests/bugs/xde/bug23950

   1 puts "=========="
   2 puts "OCC23950"
   3 puts "=========="
   4 puts ""
   5 #################################################################################
   6 # Names and visibility of points not saved when writing XCAF Document into STEP
   7 #################################################################################
   8
   9 pload QAcommands
  10
  11 #switch on writing of vertices names and styles
  12 param write.step.vertex.mode 1
  13
  14 set aFile ${imagedir}/bug23950.step
  15
  16 catch {file delete ${aFile}}
  17
  18 set info [OCC23950 ${aFile}]
  19
  20 if {[regexp "Write  Done" $info] != 1} {
  21   puts "Error: file was not written"
  22 } else {
  23   puts "OK: file was written"
  24 }
  25
  26 set is23950fixed "FALSE"
  27 set file23950 [open ${aFile} RDONLY]
  28 while {[eof $file23950] == 0} {
  29   set file23950line [string trim [gets $file23950]]
  30   if {[string first "Point1" $file23950line] != -1} {
  31     set is23950fixed "TRUE"
  32   }
  33 }
  34 close $file23950
  35
  36 if {[string compare $is23950fixed "FALSE"] == 0} {
  37   puts "ERROR: OCC23950 is reproduced"
  38 }
  39
  40 #return default behavior
  41 param write.step.vertex.mode 0