1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
puts "================"
puts "OCC2269"
puts "================"
puts ""
#######################################################################################
# XML persistance should be more robust
#######################################################################################
#
# Tested file is contains 3 labels with TDataStd_RealArray attributes
# 0:2 label has good TDataStd_RealArray attribute
# 0:22 label has bad TDataStd_RealArray attribute
# 0:222 label has good TDataStd_RealArray attribute
#
#######################################################################################
#set ScriptDir $XmlDir
#source ${ScriptDir}/begin
#source ${ScriptDir}/002/begin
#set aTestName "OCC2269"
#set WorkDirectory ${filedir}
#set aFile $WorkDirectory/${aTestName}.${FileSuffix}
#catch {Close D}
set IsGood 1
Open [locate_data_file OCC2269.xml] DD
if [catch {XDumpDF DD } result] {
puts "Error during dump ${aFile} file"
set IsGood 0
}
if [catch {CheckLabel DD 0:2} result] {
puts "Error during search 0:2 label in ${aFile} file"
set IsGood 0
}
if [catch {CheckLabel DD 0:22} result] {
puts "Error during search 0:22 label in ${aFile} file"
set IsGood 0
}
if [catch {CheckLabel DD 0:222} result] {
puts "Error during search 0:222 label in ${aFile} file"
set IsGood 0
}
Close DD
if { ${IsGood} == 0} {
puts "Faulty OCC2269"
} else {
puts "OK OCC2269"
}
|
