0028714: XmlMFunction_ScopeDriver fail to read and write function label including...
[occt.git] / tests / bugs / caf / bug27187
diff --git a/tests/bugs/caf/bug27187 b/tests/bugs/caf/bug27187
new file mode 100644 (file)
index 0000000..fcf59c0
--- /dev/null
@@ -0,0 +1,24 @@
+puts "==========="
+puts "OCC27187"
+puts "==========="
+puts ""
+#################################
+# XmlMFunction_ScopeDriver fail to read and write function label including 0 tag in label path.
+#################################
+
+NewDocument Doc XmlOcaf
+# label that contains "0" tag not only in "Root"
+set Lab 0:1:4:9999:0:1:4:2001:4:2001:4:1:4:1001:4:1001
+Label Doc $Lab
+SetReference Doc 0:1 $Lab
+
+set aFileName ${imagedir}/${casename}_doc.xml
+SaveAs Doc ${aFileName}
+Close Doc
+
+# check that the reference is correctly restored
+Open ${aFileName} Doc
+if {[GetReference Doc 0:1] != $Lab} {
+   puts "Error: restored Reference attribute value is bad '[GetReference Doc 0:1]'"
+}
+Close Doc