mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
23 lines
375 B
Plaintext
23 lines
375 B
Plaintext
puts "=========="
|
|
puts "OCC29888"
|
|
puts "=========="
|
|
puts ""
|
|
#########################################
|
|
# XCAFDoc_Editor::Expand() removes names
|
|
#########################################
|
|
pload ALL
|
|
|
|
XOpen [locate_data_file bug29888.xbf] D
|
|
|
|
set isBAD 1
|
|
|
|
if {[catch {XExpand D 0} result]} {
|
|
set isBAD 0
|
|
}
|
|
|
|
if {$isBAD} {
|
|
puts "Error: expand unexpandable shape type"
|
|
}
|
|
|
|
Close D
|