0029811: Tests - unstable tests demo\draw\binpersist_* due to usage of the same tempo...
[occt.git] / tests / demo / draw / binpersist_2
1 # test binsave and binrestore commands
2
3 pload TOPTEST
4
5 set file $imagedir/${casename}.bin
6
7 restore [locate_data_file bug23849_segment_2.brep] b
8
9 if [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
15   if {[bounding -s b -dump] != [bounding -s bb -dump]} {
16     puts "Error: restored shape has another bounding box"
17   }
18   checkshape bb
19   checknbshapes bb -ref [nbshapes b]
20   checkprops bb -l 7703.49
21   checkprops bb -s 10678.2
22   checkprops bb -v 67245
23 }
24
25 puts "TEST COMPLETED"