be5909134b6f101965853a54de6e3cbf224bfa9c
[occt.git] / tests / bugs / caf / bug2269
1 puts "================"
2 puts "OCC2269"
3 puts "================"
4 puts ""
5 #######################################################################################
6 # XML persistance should be more robust
7 #######################################################################################
8
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
13
14 #######################################################################################
15
16 #set ScriptDir $XmlDir
17 #source ${ScriptDir}/begin
18 #source ${ScriptDir}/002/begin
19
20 #set aTestName "OCC2269"
21 #set WorkDirectory ${filedir}
22 #set aFile $WorkDirectory/${aTestName}.${FileSuffix}
23 #catch {Close D}
24
25 set IsGood 1
26 Open [locate_data_file OCC2269.xml] DD
27
28 if [catch {XDumpDF DD } result] {
29    puts "Error during dump ${aFile} file"
30    set IsGood 0
31 }
32 if [catch {CheckLabel DD 0:2} result] {
33    puts "Error during search 0:2 label in ${aFile} file"
34    set IsGood 0
35 }
36 if [catch {CheckLabel DD 0:22} result] {
37    puts "Error during search 0:22 label in ${aFile} file"
38    set IsGood 0
39 }
40 if [catch {CheckLabel DD 0:222} result] {
41    puts "Error during search 0:222 label in ${aFile} file"
42    set IsGood 0
43 }
44
45 Close DD
46
47 if { ${IsGood} == 0} {
48   puts "Faulty OCC2269"
49 } else {
50   puts "OK OCC2269"
51 }