mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-09 18:50:54 +03:00
26 lines
614 B
Plaintext
26 lines
614 B
Plaintext
# test binsave and binrestore commands
|
|
|
|
pload TOPTEST
|
|
|
|
set file $imagedir/${casename}.bin
|
|
|
|
box b 10 20 30 100 200 300
|
|
|
|
if [regexp "Cannot write to the file $file" [binsave b $file]] {
|
|
puts "Error: binsave"
|
|
} elseif [regexp "Cannot read from the file $file" [binrestore $file bb]] {
|
|
puts "Error: binrestore"
|
|
} else {
|
|
file delete $file
|
|
if {[bounding -s b -dump] != [bounding -s bb -dump]} {
|
|
puts "Error: restored shape has another bounding box"
|
|
}
|
|
checkshape bb
|
|
checknbshapes bb -ref [nbshapes b]
|
|
checkprops bb -l 4800
|
|
checkprops bb -s 220000
|
|
checkprops bb -v 6000000
|
|
}
|
|
|
|
puts "TEST COMPLETED"
|