mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
33 lines
786 B
Plaintext
33 lines
786 B
Plaintext
puts "=========="
|
|
puts "OCC29888"
|
|
puts "=========="
|
|
puts ""
|
|
#########################################
|
|
# XCAFDoc_Editor::Expand() removes names
|
|
#########################################
|
|
pload ALL
|
|
|
|
XOpen [locate_data_file bug29888_part.xbf] D
|
|
|
|
XExpand D 0
|
|
|
|
set name_ref [GetName D 0:1:1:2:4]
|
|
set name_part [GetName D 0:1:1:6]
|
|
if {$name_ref != $name_part || $name_ref != "LanternPole_Body"} {
|
|
puts "Error: name has been lost"
|
|
}
|
|
|
|
set name_ref [GetName D 0:1:1:2:5]
|
|
set name_part [GetName D 0:1:1:7]
|
|
if {$name_ref != $name_part || $name_ref != "LanternPole_Chain"} {
|
|
puts "Error: name has been lost"
|
|
}
|
|
|
|
set name_ref [GetName D 0:1:1:2:6]
|
|
set name_part [GetName D 0:1:1:8]
|
|
if {$name_ref != $name_part || $name_ref != "LanternPole_Lantern"} {
|
|
puts "Error: name has been lost"
|
|
}
|
|
|
|
Close D
|