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