1 if { [string compare $subgroup "xcaf_xml"] == 0 } {
2 puts "TODO ?OCC23768 ALL: Error : File is not valid"
3 puts "TODO ?OCC23768 ALL: Error at line"
6 set aTestName "xcaf200-V1"
9 # Add an attribute to a data framework
13 XSetVolume D $aLabel $aValue
15 # Close/Open the transaction
18 # save result for check after retrieval
19 set vol_before [XGetVolume D $aLabel]
20 if { ${vol_before} != ${aValue} } {
21 puts "Error : XSetVolume or XGetVolume"
25 set aFile $WorkDirectory/${aTestName}.${FileSuffix}
29 # Restore the document
33 # Get a value of the attribute
34 set IsDone [catch {set vol_after [XGetVolume DD $aLabel]} aResult]
35 if { ${IsDone} != 0 || ${vol_after} != ${vol_before} } {
36 puts "Error : Get a value of XCAFDoc_Volume attribute from restoring document"