0023619: Integration of test grid "xml" into the new testing system

[occt.git] / tests / xml / data / ocaf / A5

diff --git a/tests/xml/data/ocaf/A5 b/tests/xml/data/ocaf/A5
new file mode 100644 (file)
index 0000000..5bfc9ab
--- /dev/null
+++ b/tests/xml/data/ocaf/A5
@@ -0,0 +1,26 @@
+set aTestName "caf001-E3"
+puts ${aTestName}
+
+# Add an attribute to a data framework
+set aSetAttr1 "New Attribute"
+set aLabel 0:2
+Label D ${aLabel}
+SetName D ${aLabel} ${aSetAttr1}
+
+# Close/Open the transaction
+NewCommand D
+
+# Save the document
+set aFile $WorkDirectory/${aTestName}.${FileSuffix}
+
+SaveToFile D $aFile
+
+# Restore the document
+Close D
+Open ${aFile} DD
+
+# Get a value of the attribute
+set IsDone [catch {set aGetAttr3 [GetName DD ${aLabel}]} aResult]
+if { ${IsDone} != 0 || ${aSetAttr1}!=${aGetAttr3} } {
+    puts "Error : Get a value of TDataStd_Name attribute from restoring document"
+}