0028691: Storage of Ocaf documents in XML file format in old document version
[occt.git] / tests / bugs / caf / bug28691
1 puts "============"
2 puts "OCC28691"
3 puts "============"
4 puts ""
5 ###################################################################################################################
6 # Storage of Ocaf documents in XML file format in old document version
7 ###################################################################################################################
8
9 NewDocument D XmlOcaf
10 SetExtStringArray D 0:1 0 1 3 Hello hallo Bonjour
11 set FileV7 ${imagedir}/bug28691_doc7.xml
12 set FileV9 ${imagedir}/bug28691_doc9.xml
13 SetNode D 0:1
14 AISSet D 0:1 NS
15
16 SaveAs D ${FileV9}
17
18 SetStorageVersion 7
19 SaveAs D ${FileV7}
20
21 Close D
22
23 puts "Testing for XML file format in new version document"
24 SetStorageVersion 9
25 Open ${FileV9} D9
26
27 set info [Attributes D9 0:1]
28 if { [regexp "TDataStd_ExtStringArray" ${info}] != 1 } {
29     puts "Error : there is not TDataStd_ExtStringArray attribute in new version document"
30 } else {
31     puts "OK : there is TDataStd_ExtStringArray attribute in new version document"
32 }
33 if { [regexp "TDataStd_TreeNode" ${info}] != 1 } {
34     puts "Error : there is not TDataStd_TreeNode attribute in new version document"
35 } else {
36     puts "OK : there is TDataStd_TreeNode attribute in new version document"
37 }
38 if { [regexp "TDataXtd_Presentation" ${info}] != 1 } {
39     puts "Error : there is not TDataXtd_Presentation attribute in new version document"
40 } else {
41     puts "OK : there is TDataXtd_Presentation attribute in new version document"
42 }
43 set info [GetExtStringArray D9 0:1]
44 if { [regexp "Hello" ${info}] != 1 } {
45     puts "Error : there is not \"Hello\" word in TDataStd_ExtStringArray attribute in new version document"
46 } else {
47     puts "OK : there is \"Hello\" word in TDataStd_ExtStringArray attribute in new version document"
48 }
49 if { [regexp "hallo" ${info}] != 1 } {
50     puts "Error : there is not \"hallo\" word in TDataStd_ExtStringArray attribute in new version document"
51 } else {
52     puts "OK : there is \"hallo\" word in TDataStd_ExtStringArray attribute in new version document"
53 }
54 if { [regexp "Bonjour" ${info}] != 1 } {
55     puts "Error : there is not \"Bonjour\" word in TDataStd_ExtStringArray attribute in new version document"
56 } else {
57     puts "OK : there is \"Bonjour\" word in TDataStd_ExtStringArray attribute in new version document"
58 }
59
60 puts "\nTesting for XML file format in old version document"
61 Open ${FileV7} D7
62
63 set info [Attributes D7 0:1]
64 if { [regexp "TDataStd_ExtStringArray" ${info}] != 1 } {
65     puts "Error : there is not TDataStd_ExtStringArray attribute in old version document"
66 } else {
67     puts "OK : there is TDataStd_ExtStringArray attribute in old version document"
68 }
69 if { [regexp "TDataStd_TreeNode" ${info}] != 1 } {
70     puts "Error : there is not TDataStd_TreeNode attribute in old version document"
71 } else {
72     puts "OK : there is TDataStd_TreeNode attribute in old version document"
73 }
74 if { [regexp "TDataXtd_Presentation" ${info}] != 1 } {
75     puts "Error : there is not TDataXtd_Presentation attribute in old version document"
76 } else {
77     puts "OK : there is TDataXtd_Presentation attribute in old version document"
78 }
79 set info [GetExtStringArray D7 0:1]
80 if { [regexp "Hello" ${info}] != 1 } {
81     puts "Error : there is not \"Hello\" word in TDataStd_ExtStringArray attribute in old version document"
82 } else {
83     puts "OK : there is \"Hello\" word in TDataStd_ExtStringArray attribute in old version document"
84 }
85 if { [regexp "hallo" ${info}] != 1 } {
86     puts "Error : there is not \"hallo\" word in TDataStd_ExtStringArray attribute in old version document"
87 } else {
88     puts "OK : there is \"hallo\" word in TDataStd_ExtStringArray attribute in old version document"
89 }
90 if { [regexp "Bonjour" ${info}] != 1 } {
91     puts "Error : there is not \"Bonjour\" word in TDataStd_ExtStringArray attribute in old version document"
92 } else {
93     puts "OK : there is \"Bonjour\" word in TDataStd_ExtStringArray attribute in old version document"
94 }