0023950: Names and visibility of points not saved when writing XCAF Document into...
[occt.git] / tests / bugs / xde / bug23950
index 263ef1c..753467a 100644 (file)
@@ -1,5 +1,3 @@
-puts "TODO OCC23950 ALL: ERROR: OCC23950 is reproduced"
-
 puts "=========="
 puts "OCC23950"
 puts "=========="
@@ -10,7 +8,14 @@ puts ""
 
 pload QAcommands
 
-set info [OCC23950]
+#switch on writing of vertices names and styles
+param write.step.vertex.mode 1
+
+set aFile ${imagedir}/bug23950.step
+
+catch {file delete ${aFile}}
+
+set info [OCC23950 ${aFile}]
 
 if {[regexp "Write  Done" $info] != 1} {
   puts "Error: file was not written"
@@ -19,7 +24,7 @@ if {[regexp "Write  Done" $info] != 1} {
 }
 
 set is23950fixed "FALSE"
-set file23950 [open test_point_assembly.step RDONLY]
+set file23950 [open ${aFile} RDONLY]
 while {[eof $file23950] == 0} {
   set file23950line [string trim [gets $file23950]]
   if {[string first "Point1" $file23950line] != -1} {
@@ -31,3 +36,6 @@ close $file23950
 if {[string compare $is23950fixed "FALSE"] == 0} {
   puts "ERROR: OCC23950 is reproduced"
 }
+
+#return default behavior
+param write.step.vertex.mode 0