mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
5203f74183
Method IGESCAFControl_Writer::WriteNames now iterates over all nested assemblies and collects names for shapes. Regression fix Test-case for issue #21802
26 lines
767 B
Plaintext
26 lines
767 B
Plaintext
puts "=========="
|
|
puts "OCC21802"
|
|
puts "=========="
|
|
puts ""
|
|
###########################################################
|
|
# Not all names are transferred from STEP to IGES via XDE
|
|
###########################################################
|
|
|
|
ReadStep d [locate_data_file bug21802_as1-oc-214.stp]
|
|
catch {exec rm ${imagedir}/bug21802_as1-oc-214.igs}
|
|
WriteIges d ${imagedir}/bug21802_as1-oc-214.igs
|
|
|
|
set is21802fixed "FALSE"
|
|
set file21802 [open ${imagedir}/bug21802_as1-oc-214.igs RDONLY]
|
|
while {[eof $file21802] == 0} {
|
|
set file21802line [string trim [gets $file21802]]
|
|
if {[string first "l-bracke" $file21802line] != -1} {
|
|
set is21802fixed "TRUE"
|
|
}
|
|
}
|
|
close $file21802
|
|
|
|
if {[string compare $is21802fixed "FALSE"] == 0} {
|
|
puts "ERROR: OCC21802 is reproduced"
|
|
}
|