mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
a849d42d32
Add some workaround to read IGES files with lines, which lengths are less than standard 80. Test case for issue CR26573 Correction of test cases for issue CR26573 Correction of test case for issue CR26573
31 lines
778 B
Plaintext
31 lines
778 B
Plaintext
puts "================"
|
|
puts "OCC22165"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################################
|
|
# IGES transaltor does not produce any shape
|
|
######################################################################################
|
|
|
|
set BugNumber OCC22165
|
|
|
|
catch { pload XDE }
|
|
|
|
igesbrep [locate_data_file OCC22165-cub_spain.igs] result *
|
|
|
|
decho off
|
|
set Log [data c]
|
|
decho on
|
|
|
|
set LogLength [llength ${Log}]
|
|
|
|
if { ${LogLength} < 21 } {
|
|
puts "Bad format of data-command"
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
regexp -all {1[ \t]*F: Syntax error in IGES file at line ([-0-9.+eE]+) in section ([A-Z]).} $Log full word1 word2
|
|
if { ${word1} != "204" || ${word2} != "P" } {
|
|
puts "Faulty ${BugNumber}"
|
|
}
|
|
}
|
|
|