0029888: [Regression] Data Exchange - XCAFDoc_Editor::Expand() removes names

[occt.git] / tests / bugs / xde / bug29888_2

diff --git a/tests/bugs/xde/bug29888_2 b/tests/bugs/xde/bug29888_2
new file mode 100644 (file)
index 0000000..cc2fa4c
--- /dev/null
+++ b/tests/bugs/xde/bug29888_2
@@ -0,0 +1,32 @@
+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