[occt.git] / tests / bugs / moddata_1 / bug22165

puts "REQUIRED All: 1	F: Syntax error in IGES file at line "
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 *

set Log [data c]

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}"
    }
}
Commit	Line	Data
6d368502	1	puts "REQUIRED All: 1 F: Syntax error in IGES file at line "
7faaccfd	2	puts "================"
	3	puts "OCC22165"
	4	puts "================"
	5	puts ""
	6	#######################################################################################
	7	# IGES transaltor does not produce any shape
	8	######################################################################################
	9
	10	set BugNumber OCC22165
	11
	12	catch { pload XDE }
	13
	14	igesbrep [locate_data_file OCC22165-cub_spain.igs] result *
	15
	16	set Log [data c]
	17
	18	set LogLength [llength ${Log}]
	19
	20	if { ${LogLength} < 21 } {
	21	puts "Bad format of data-command"
	22	puts "Faulty ${BugNumber}"
	23	} else {
	24	regexp -all {1[ \t]*F: Syntax error in IGES file at line ([-0-9.+eE]+) in section ([A-Z]).} $Log full word1 word2
a849d42d	25	if { ${word1} != "204" \|\| ${word2} != "P" } {
7faaccfd	26	puts "Faulty ${BugNumber}"
	27	}
	28	}
	29