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

set aTestName "caf001-A3"

# Add an attribute to a data framework
set aSetAttr1 100
set aLabel 0:2
SetInteger 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 [GetInteger DD ${aLabel}]} aResult]
if { ${IsDone} != 0 || ${aSetAttr1}!=${aGetAttr3} } {
    puts "Error : Get a value of TDataStd_Integer attribute from restoring document"
}
Commit	Line	Data
607a96d4	1	set aTestName "caf001-A3"
	2
	3	# Add an attribute to a data framework
	4	set aSetAttr1 100
	5	set aLabel 0:2
	6	SetInteger D ${aLabel} ${aSetAttr1}
	7
	8	# Close/Open the transaction
	9	NewCommand D
	10
	11	# Save the document
	12	set aFile $WorkDirectory/${aTestName}.${FileSuffix}
	13
	14	SaveToFile D $aFile
	15
	16	# Restore the document
	17	Close D
	18	Open ${aFile} DD
	19
	20	# Get a value of the attribute
	21	set IsDone [catch {set aGetAttr3 [GetInteger DD ${aLabel}]} aResult]
	22	if { ${IsDone} != 0 \|\| ${aSetAttr1}!=${aGetAttr3} } {
	23	puts "Error : Get a value of TDataStd_Integer attribute from restoring document"
	24	}