0028714: XmlMFunction_ScopeDriver fail to read and write function label including...
[occt.git] / tests / bugs / caf / bug27187
1 puts "==========="
2 puts "OCC27187"
3 puts "==========="
4 puts ""
5 #################################
6 # XmlMFunction_ScopeDriver fail to read and write function label including 0 tag in label path.
7 #################################
8
9 NewDocument Doc XmlOcaf
10 # label that contains "0" tag not only in "Root"
11 set Lab 0:1:4:9999:0:1:4:2001:4:2001:4:1:4:1001:4:1001
12 Label Doc $Lab
13 SetReference Doc 0:1 $Lab
14
15 set aFileName ${imagedir}/${casename}_doc.xml
16 SaveAs Doc ${aFileName}
17 Close Doc
18
19 # check that the reference is correctly restored
20 Open ${aFileName} Doc
21 if {[GetReference Doc 0:1] != $Lab} {
22    puts "Error: restored Reference attribute value is bad '[GetReference Doc 0:1]'"
23 }
24 Close Doc