0029282: Data Exchange - UpdateAssemblies is not working for located root assemblies
[occt.git] / tests / bugs / xde / bug29282
1 puts "=========="
2 puts "OCC29282"
3 puts "=========="
4 puts ""
5 ###########################################################
6 # UpdateAssemblies is not worked for located root assemblies
7 ###########################################################
8
9 pload DCAF
10
11 # create test Document
12 box b 1 1 1
13 compound b c
14 ttranslate c 0 1 0
15 XNewDoc D
16 XAddShape D c
17
18 # replace box by another one
19 box bb 2 1 1
20 XSetShape D 0:1:1:3 bb
21 XUpdateAssemblies D
22 XGetOneShape result D
23
24 # check results
25 set props [vprops result]
26 regexp {Mass +: +([-0-9.+eE]+).+} $props full mass
27 if {$mass != "2"} {
28   puts "Error: Assemblies are not updated."
29 }
30
31 Close D
32