0026925: Data Exchange - Exception can be raised if assembly is empty
[occt.git] / tests / bugs / step / bug26925
1 puts "# ====================================================================="
2 puts "# 0026925: Data Exchange - Execeptions can be raised if assembly is empty"
3 puts "# ====================================================================="
4 puts ""
5
6 pload DCAF
7 XNewDoc D
8 XNewShape D
9 box a 0 0 0 10 10 10
10 XAddShape D a 0
11 ttranslate a 10 0 0
12 XAddComponent D 0:1:1:1 a
13 XGetShape s0 D 0:1:1:1
14 checkshape s0 l
15 XUpdateAssemblies D
16 XGetShape s1 D 0:1:1:1
17
18 checkshape s1 r
19 checknbshapes s1 -vertex 8 -edge 12  -shape 35 -face 6 -solid 1 -shell 1
20
21 Close D