mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
26 lines
642 B
Plaintext
26 lines
642 B
Plaintext
# test binsave and binrestore commands
|
|
|
|
pload TOPTEST
|
|
|
|
set file $imagedir/${casename}.bin
|
|
|
|
restore [locate_data_file bug23849_segment_2.brep] b
|
|
|
|
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 7703.49
|
|
checkprops bb -s 10678.2
|
|
checkprops bb -v 67245
|
|
}
|
|
|
|
puts "TEST COMPLETED"
|