0023950: Names and visibility of points not saved when writing XCAF Document into...
[occt.git] / 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