0030969: Coding Rules - refactor Quantity_Color.cxx color table definition
[occt.git] / tests / bugs / xde / bug29436_1
1 puts "=========="
2 puts "OCC29436"
3 puts "=========="
4 puts ""
5 ########################################
6 # Extend Expand compounds functionality
7 ########################################
8 pload ALL
9
10 XOpen [locate_data_file bug29436_compound.xbf] D
11 XExpand D 1 0:1:1:1
12
13 # check colors
14 set color [XGetShapeColor D 0:1:1:2]
15 if {$color != "GREEN"} {
16   puts "Error: metadata lost during expand"
17 }
18 set color [XGetShapeColor D 0:1:1:3]
19 if {$color != "GREEN"} {
20   puts "Error: metadata lost during expand"
21 }
22 set color [XGetShapeColor D 0:1:1:2:1]
23 if {$color != "CYAN"} {
24   puts "Error: metadata lost during expand"
25 }
26
27 Close D