puts "==========="
puts "OCC27433 Opening/Saving OCAF Documents With Own Document Format Does Not Work"
puts "==========="

# make variable ends with "/" to get empty myName in OSD_Path
dsetenv "CSF_PluginDefaults" [dgetenv CSF_PluginDefaults]/

# Create simple document with some data
NewDocument Doc BinOcaf
SetInteger Doc 0:2 100

# Save the document
set aTmpFile ${imagedir}/${casename}.cbf
puts ${aTmpFile}
catch {SaveAs Doc ${aTmpFile}}
if { ![file exists ${aTmpFile}] } {
  puts "Error: Can not save the file with path to plugins ended with slash"
}

Close Doc
file delete -force $aTmpFile