mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
15b2583e69
- Add option 'remove_level' to the command 'removeloc'. - Add test case. Minor correction of test case
15 lines
380 B
Plaintext
15 lines
380 B
Plaintext
puts "======="
|
|
puts "OCC28471"
|
|
puts "======="
|
|
puts ""
|
|
##################################################
|
|
# ShapeUpgrade_RemoveLocations breaks sharing of sub-shapes
|
|
##################################################
|
|
|
|
restore [locate_data_file bug28471_faces_share_vertex.brep] a
|
|
|
|
set remove_level 0 ;# allow compound
|
|
removeloc r a $remove_level
|
|
|
|
checknbshapes r -ref [nbshapes a]
|