mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
27 lines
668 B
Plaintext
27 lines
668 B
Plaintext
# test binsave and binrestore commands
|
|
|
|
pload TOPTEST
|
|
|
|
set file $imagedir/${casename}.bin
|
|
|
|
restore [locate_data_file OCC615.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 5501.4
|
|
checkprops bb -s 201237
|
|
checkprops bb -v 4.68509e+006
|
|
checktrinfo bb -ref [trinfo b]
|
|
}
|
|
|
|
puts "TEST COMPLETED"
|