NewDocument D BinOcaf
SetExtStringArray D 0:1 0 1 3 Hello hallo Bonjour
-set FileV7 ${imagedir}/bug29217_doc7.cbf
-set FileV10 ${imagedir}/bug29217_doc10.cbf
+set FileV7 ${imagedir}/${casename}_doc7.cbf
+set FileV10 ${imagedir}/${casename}_doc10.cbf
SetNode D 0:1
AISSet D 0:1 NS
} else {
puts "OK : there is \"Bonjour\" word in TDataStd_ExtStringArray attribute in old version document"
}
+
+file delete -force ${FileV7}
+file delete -force ${FileV10}