263ef1c879bae9df51684635df3f9021da4b0e98
[occt.git] / tests / bugs / xde / bug23950
1 puts "TODO OCC23950 ALL: ERROR: OCC23950 is reproduced"
2
3 puts "=========="
4 puts "OCC23950"
5 puts "=========="
6 puts ""
7 #################################################################################
8 # Names and visibility of points not saved when writing XCAF Document into STEP
9 #################################################################################
10
11 pload QAcommands
12
13 set info [OCC23950]
14
15 if {[regexp "Write  Done" $info] != 1} {
16   puts "Error: file was not written"
17 } else {
18   puts "OK: file was written"
19 }
20
21 set is23950fixed "FALSE"
22 set file23950 [open test_point_assembly.step RDONLY]
23 while {[eof $file23950] == 0} {
24   set file23950line [string trim [gets $file23950]]
25   if {[string first "Point1" $file23950line] != -1} {
26     set is23950fixed "TRUE"
27   }
28 }
29 close $file23950
30
31 if {[string compare $is23950fixed "FALSE"] == 0} {
32   puts "ERROR: OCC23950 is reproduced"
33 }