93c2a26144f6e470183d798e7a709e35ee0ac9ac
[occt.git] / tests / persist / fsd / B1
1 # check read / write shape to FSD archive and reading its back
2
3 set file2 "bug26256.cmp"
4 set driver "cmp"
5 set file [locate_data_file ${file2}]
6
7 # restore shape from a file
8 if {[catch {fsdread ${file} shapein}]} {
9    puts "Error reading fsd file - ${file}"}
10    return
11
12
13 # check base shape
14 checkshape shapein
15
16 # write shape to a file
17 fsdwrite shapein ${imagedir}/${file2} ${driver}
18
19
20 # restore shape from a file
21 if {[catch {fsdread ${imagedir}/${file2} result}]} {
22    puts "Error reading fsd file - ${imagedir}/${file2}"}
23    return
24
25 # check result shape
26 checkshape result
27
28
29 # check the number of subshapes
30 checknbshapes result -ref [nbshapes shapein]
31
32 # check properties
33 checkprops result -l -equal shapein
34 checkprops result -s -equal shapein
35 checkprops result -v -equal shapein