--- /dev/null
+# test binsave and binrestore commands
+
+pload TOPTEST
+
+set file binpersist.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 b] != [bounding bb]} {
+ 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"