0031517: Data Exchange - wrong result of ShapeTool::UpdateAssemblies()
[occt.git] / tests / bugs / xde / bug31517
1 puts "======================================================================"
2 puts "0031517: Data Exchange - wrong result of ShapeTool::UpdateAssemblies()"
3 puts "======================================================================"
4 puts ""
5
6 pload DCAF
7
8 # make structure with two assemblies linked to one original assembly (2 * 3 boxes)
9 box b1 1 1 1
10 box b2 2 0 0 1 1 1
11 box b3 -2 0 0 1 1 1
12 compound b1 b2 b3 bs
13 copy bs bs1
14 ttranslate bs1 0 2 0
15 copy bs bs2
16 ttranslate bs2 0 -2 0
17 compound bs1 r1
18 compound bs2 r2
19 compound r1 r2 root
20 XNewDoc D
21 XAddShape D root
22
23 # delete one of boxes in common assembly (should be 2 * 2 boxes)
24 XRemoveComponent D 0:1:1:3:1
25 XRemoveShape D 0:1:1:4
26 XUpdateAssemblies D
27 XGetOneShape upd D
28
29 # check number of boxes
30 set boxes [explode upd so]
31 if {$boxes != "upd_1 upd_2 upd_3 upd_4"} {
32 puts "Error: wrong result of UpdateAssemblies."
33 }
34
35 Close D
36