0029811: Tests - unstable tests demo\draw\binpersist_* due to usage of the same tempo...
[occt.git] / tests / demo / draw / binpersist_3
CommitLineData
745c1386 1# test binsave and binrestore commands
2
3pload TOPTEST
4
c9ebb2dd 5set file $imagedir/${casename}.bin
745c1386 6
7restore [locate_data_file OCC615.brep] b
8
9if [regexp "Cannot write to the file $file" [binsave b $file]] {
10 puts "Error: binsave"
11} elseif [regexp "Cannot read from the file $file" [binrestore $file bb]] {
12 puts "Error: binrestore"
13} else {
14 file delete $file
1a0339b4 15 if {[bounding -s b -dump] != [bounding -s bb -dump]} {
745c1386 16 puts "Error: restored shape has another bounding box"
17 }
18 checkshape bb
19 checknbshapes bb -ref [nbshapes b]
20 checkprops bb -l 5501.4
21 checkprops bb -s 201237
22 checkprops bb -v 4.68509e+006
23 checktrinfo bb -ref [trinfo b]
24}
25
26puts "TEST COMPLETED"