5 #################################################################################
6 # Names and visibility of points not saved when writing XCAF Document into STEP
7 #################################################################################
11 #switch on writing of vertices names and styles
12 param write.step.vertex.mode 1
14 set aFile ${imagedir}/bug23950.step
16 catch {file delete ${aFile}}
18 set info [OCC23950 ${aFile}]
20 if {[regexp "Write Done" $info] != 1} {
21 puts "Error: file was not written"
23 puts "OK: file was written"
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"
36 if {[string compare $is23950fixed "FALSE"] == 0} {
37 puts "ERROR: OCC23950 is reproduced"
40 #return default behavior
41 param write.step.vertex.mode 0