1 puts "================"
3 puts "================"
5 #######################################################################################
6 # XML persistance should be more robust
7 #######################################################################################
9 # Tested file is contains 3 labels with TDataStd_RealArray attributes
10 # 0:2 label has good TDataStd_RealArray attribute
11 # 0:22 label has bad TDataStd_RealArray attribute
12 # 0:222 label has good TDataStd_RealArray attribute
14 #######################################################################################
16 #set ScriptDir $XmlDir
17 #source ${ScriptDir}/begin
18 #source ${ScriptDir}/002/begin
20 #set aTestName "OCC2269"
21 #set WorkDirectory ${filedir}
22 #set aFile $WorkDirectory/${aTestName}.${FileSuffix}
26 Open [locate_data_file OCC2269.xml] DD
28 if [catch {XDumpDF DD } result] {
29 puts "Error during dump ${aFile} file"
32 if [catch {CheckLabel DD 0:2} result] {
33 puts "Error during search 0:2 label in ${aFile} file"
36 if [catch {CheckLabel DD 0:22} result] {
37 puts "Error during search 0:22 label in ${aFile} file"
40 if [catch {CheckLabel DD 0:222} result] {
41 puts "Error during search 0:222 label in ${aFile} file"
47 if { ${IsGood} == 0} {