mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
96 lines
3.6 KiB
Plaintext
96 lines
3.6 KiB
Plaintext
puts "============"
|
|
puts "OCC29217"
|
|
puts "Storage of Ocaf documents in BIN file format in old document version"
|
|
puts "============"
|
|
puts ""
|
|
|
|
NewDocument D BinOcaf
|
|
SetExtStringArray D 0:1 0 1 3 Hello hallo Bonjour
|
|
set FileV7 ${imagedir}/${casename}_doc7.cbf
|
|
set FileV10 ${imagedir}/${casename}_doc10.cbf
|
|
SetNode D 0:1
|
|
AISSet D 0:1 NS
|
|
|
|
SaveAs D ${FileV10}
|
|
|
|
SetStorageFormatVersion D 7
|
|
SaveAs D ${FileV7}
|
|
|
|
Close D
|
|
|
|
puts "Testing for BIN file format in new version document"
|
|
|
|
Open ${FileV10} D10
|
|
|
|
set info [Attributes D10 0:1]
|
|
if { [regexp "TDataStd_ExtStringArray" ${info}] != 1 } {
|
|
puts "Error : there is not TDataStd_ExtStringArray attribute in new version document"
|
|
} else {
|
|
puts "OK : there is TDataStd_ExtStringArray attribute in new version document"
|
|
}
|
|
if { [regexp "TDataStd_TreeNode" ${info}] != 1 } {
|
|
puts "Error : there is not TDataStd_TreeNode attribute in new version document"
|
|
} else {
|
|
puts "OK : there is TDataStd_TreeNode attribute in new version document"
|
|
}
|
|
if { [regexp "TDataXtd_Presentation" ${info}] != 1 } {
|
|
puts "Error : there is not TDataXtd_Presentation attribute in new version document"
|
|
} else {
|
|
puts "OK : there is TDataXtd_Presentation attribute in new version document"
|
|
}
|
|
set info [GetExtStringArray D10 0:1]
|
|
if { [regexp "Hello" ${info}] != 1 } {
|
|
puts "Error : there is not \"Hello\" word in TDataStd_ExtStringArray attribute in new version document"
|
|
} else {
|
|
puts "OK : there is \"Hello\" word in TDataStd_ExtStringArray attribute in new version document"
|
|
}
|
|
if { [regexp "hallo" ${info}] != 1 } {
|
|
puts "Error : there is not \"hallo\" word in TDataStd_ExtStringArray attribute in new version document"
|
|
} else {
|
|
puts "OK : there is \"hallo\" word in TDataStd_ExtStringArray attribute in new version document"
|
|
}
|
|
if { [regexp "Bonjour" ${info}] != 1 } {
|
|
puts "Error : there is not \"Bonjour\" word in TDataStd_ExtStringArray attribute in new version document"
|
|
} else {
|
|
puts "OK : there is \"Bonjour\" word in TDataStd_ExtStringArray attribute in new version document"
|
|
}
|
|
|
|
puts "\nTesting for BIN file format in old version document"
|
|
Open ${FileV7} D7
|
|
|
|
set info [Attributes D7 0:1]
|
|
if { [regexp "TDataStd_ExtStringArray" ${info}] != 1 } {
|
|
puts "Error : there is not TDataStd_ExtStringArray attribute in old version document"
|
|
} else {
|
|
puts "OK : there is TDataStd_ExtStringArray attribute in old version document"
|
|
}
|
|
if { [regexp "TDataStd_TreeNode" ${info}] != 1 } {
|
|
puts "Error : there is not TDataStd_TreeNode attribute in old version document"
|
|
} else {
|
|
puts "OK : there is TDataStd_TreeNode attribute in old version document"
|
|
}
|
|
if { [regexp "TDataXtd_Presentation" ${info}] != 1 } {
|
|
puts "Error : there is not TDataXtd_Presentation attribute in old version document"
|
|
} else {
|
|
puts "OK : there is TDataXtd_Presentation attribute in old version document"
|
|
}
|
|
set info [GetExtStringArray D7 0:1]
|
|
if { [regexp "Hello" ${info}] != 1 } {
|
|
puts "Error : there is not \"Hello\" word in TDataStd_ExtStringArray attribute in old version document"
|
|
} else {
|
|
puts "OK : there is \"Hello\" word in TDataStd_ExtStringArray attribute in old version document"
|
|
}
|
|
if { [regexp "hallo" ${info}] != 1 } {
|
|
puts "Error : there is not \"hallo\" word in TDataStd_ExtStringArray attribute in old version document"
|
|
} else {
|
|
puts "OK : there is \"hallo\" word in TDataStd_ExtStringArray attribute in old version document"
|
|
}
|
|
if { [regexp "Bonjour" ${info}] != 1 } {
|
|
puts "Error : there is not \"Bonjour\" word in TDataStd_ExtStringArray attribute in old version document"
|
|
} else {
|
|
puts "OK : there is \"Bonjour\" word in TDataStd_ExtStringArray attribute in old version document"
|
|
}
|
|
|
|
file delete -force ${FileV7}
|
|
file delete -force ${FileV10}
|