1 if { [string compare $subgroup "ocaf_xml"] == 0 } {
2 puts "TODO ?OCC23768 ALL: Error : File is not valid"
3 puts "TODO ?OCC23768 ALL: Error at line"
6 set aTestName "caf001-I3"
11 # Add an attribute to a data framework
19 plane aPlane1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
21 set aDumpPlane1 [dump aPlane1]
23 regexp {Origin[ \t]*:([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} ${aDumpPlane1} full anOriginX_Plane1 anOriginY_Plane1 anOriginZ_Plane1
24 regexp {Axis[ \t]*:([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} ${aDumpPlane1} full anAxisDX_Plane1 anAxisDY_Plane1 anAxisDZ_Plane1
27 SetPlane D ${aLabel} aPlane1
29 # Close/Open the transaction
33 set aFile $WorkDirectory/${aTestName}.${FileSuffix}
37 # Restore the document
41 # Get a value of the attribute
42 set IsDone [catch {GetPlane DD ${aLabel} aPlane5} aResult]
43 if { ${IsDone} != 0 } {
44 puts "Error : Get a value of TDataStd_Plane attribute from restoring document"
47 set aDumpPlane5 [dump aPlane5]
49 regexp {Origin[ \t]*:([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} ${aDumpPlane5} full anOriginX_Plane5 anOriginY_Plane5 anOriginZ_Plane5
50 regexp {Axis[ \t]*:([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} ${aDumpPlane5} full anAxisDX_Plane5 anAxisDY_Plane5 anAxisDZ_Plane5
52 if { ${anOriginX_Plane1} != ${anOriginX_Plane5} ||
53 ${anOriginY_Plane1} != ${anOriginY_Plane5} ||
54 ${anOriginZ_Plane1} != ${anOriginZ_Plane5} ||
55 ${anAxisDX_Plane1} != ${anAxisDX_Plane5} ||
56 ${anAxisDY_Plane1} != ${anAxisDY_Plane5} ||
57 ${anAxisDZ_Plane1} != ${anAxisDZ_Plane5} } {
58 puts "anOriginX_Plane1=${anOriginX_Plane1} anOriginX_Plane5=${anOriginX_Plane5}"
59 puts "anOriginY_Plane1=${anOriginY_Plane1} anOriginY_Plane5=${anOriginY_Plane5}"
60 puts "anOriginZ_Plane1=${anOriginZ_Plane1} anOriginZ_Plane5=${anOriginZ_Plane5}"
61 puts "anAxisDX_Plane1=${anAxisDX_Plane1} anAxisDX_Plane5=${anAxisDX_Plane5}"
62 puts "anAxisDY_Plane1=${anAxisDY_Plane1} anAxisDY_Plane5=${anAxisDY_Plane5}"
63 puts "anAxisDZ_Plane1=${anAxisDZ_Plane1} anAxisDZ_Plane5=${anAxisDZ_Plane5}"
64 puts "Error : Get a value of TDataStd_Plane attribute from restoring document"