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}
