1set aTestName "caf001-B3"
2puts $aTestName
3
4# Add an attribute to a data framework
5set aSetAttr1 100.0
6set aLabel 0:2
7SetReal D ${aLabel} ${aSetAttr1}
8
9# Close/Open the transaction
10NewCommand D
11
12# Save the document
13set aFile $WorkDirectory/${aTestName}.${FileSuffix}
14
15SaveToFile D $aFile
16
17# Restore the document
18Close D
19Open ${aFile} DD
20
21# Get a value of the attribute
22set IsDone [catch {set aGetAttr3 [GetReal DD ${aLabel}]} aResult]
23if { ${IsDone} != 0 || ${aSetAttr1}!=${aGetAttr3} } {
24	puts "Error : Get a value of TDataStd_Real attribute from restoring document"
25}
26