pload TOPTEST
-set file binpersist.bin
+set file $imagedir/${casename}.bin
box b 10 20 30 100 200 300
puts "Error: binrestore"
} else {
file delete $file
- if {[bounding b] != [bounding bb]} {
+ if {[bounding b -dump] != [bounding bb -dump]} {
puts "Error: restored shape has another bounding box"
}
checkshape bb