mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
a1530ab1b8
Modified Load(...) method of Resource_Manager.cxx to print file names correctly. Removed appending (empty) file name to directory name, since this is not necessary and leads to a Standard_OutOfRange failure in TCollection_AsciiString. Appending file name is done, but only if the name is not empty. Added test case
22 lines
599 B
Plaintext
Executable File
22 lines
599 B
Plaintext
Executable File
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 aFile ${imagedir}/OCC27433-[file tail [info script]].cbf
|
|
file delete ${aFile}
|
|
puts ${aFile}
|
|
catch {SaveAs Doc ${aFile}}
|
|
if { ![file exists ${aFile}] } {
|
|
puts "Error: Can not save the file with path to plugins ended with slash"
|
|
}
|
|
|
|
Close Doc
|