mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
a8d3a0b102
Storage and retrieval of a document by means of a stream is distributed to TObj model. Modified files: -TObj_Model.hxx, cxx - the virtual methods Load() and SaveAs() obtained a stream as an argument instead of a file name. -TObj_Application.hxx, cxx - same extension: the virtual methods LoadDocument() and SaveDocument() use a stream to open and save a document. -TObjDRAW.cxx - draw-commands TObjSave and TObjLoad are extended for -stream parameter, which allows usage of a file input or output stream instead of a file name. A new test: - bugs caf bug29901 - it creates a simple TObj-model, saves it on disk using a file stream, loads it by means of a file stream and checks the content. Modified test: - bugs caf bug28425 - just improved to proper manipulate a test-file on disk.
47 lines
1.0 KiB
Plaintext
47 lines
1.0 KiB
Plaintext
puts "============"
|
|
puts "0029901: Support save to and restore from Stream interface in TObj package"
|
|
puts "============"
|
|
|
|
set status 0
|
|
set BugNumber 29901
|
|
pload TOBJ
|
|
|
|
# Create a new document
|
|
TObjNew TD1
|
|
TObjAddObj TD1 obj1
|
|
TObjSetVal TD1 obj1 ${BugNumber}
|
|
|
|
# Save the document
|
|
set aFile $imagedir/${test_image}-[file tail [info script]].cbf
|
|
catch {[file delete ${aFile}]}
|
|
catch {TObjSave TD1 ${aFile} -stream}
|
|
if { ![file exists ${aFile}] } {
|
|
set status 1
|
|
puts "There is not ${aFile} file; TObjSave command: Error"
|
|
puts "bug${BugNumber}: ERROR"
|
|
} else {
|
|
puts "Save the document to ${aFile} file"
|
|
}
|
|
|
|
TObjClose TD1
|
|
unset TD1
|
|
|
|
# Restore the document
|
|
if [catch { TObjLoad TD2 ${aFile} -stream} catch_result] {
|
|
puts "bug${BugNumber}: ERROR"
|
|
}
|
|
|
|
# check stored single integer value
|
|
set retInt [TObjGetVal TD2 obj1 -i]
|
|
if { $retInt != ${BugNumber} } {
|
|
set status 1
|
|
puts "bug${BugNumber}: check stored single integer value; ERROR"
|
|
}
|
|
|
|
if { ${status} != 0 } {
|
|
puts "Faulty bug${BugNumber}"
|
|
} else {
|
|
puts "OK bug${BugNumber}"
|
|
}
|
|
|