[occt.git] / tests / bugs / xde / bug22915

puts "================"
puts "OCC22915"
puts "================"
puts ""
######################################################################################
# xrash in iges reader TransferRoots()
######################################################################################

set BugNumber OCC22915

igesread [locate_data_file OCC22915-brakes.igs] result *
checkshape result
set info [ tpstat c ]

regexp {Nb Total:([-0-9.+eE]+)[ \t]*for ([-0-9.+eE]+) items} $info full total nb_items
set word1 [string compare $nb_items "3"]
set word2 [string compare $total "38"]

if { ${word1} == 0 && ${word2} == 0 } {
   puts "OK ${BugNumber}"
} else {
   puts "Faulty ${BugNumber}"
}

checkprops result -s 284190
Commit	Line	Data
3bea4c16	1	puts "================"
	2	puts "OCC22915"
	3	puts "================"
	4	puts ""
	5	######################################################################################
	6	# xrash in iges reader TransferRoots()
	7	######################################################################################
	8
	9	set BugNumber OCC22915
	10
	11	igesread [locate_data_file OCC22915-brakes.igs] result *
	12	checkshape result
	13	set info [ tpstat c ]
	14
	15	regexp {Nb Total:([-0-9.+eE]+)[ \t]*for ([-0-9.+eE]+) items} $info full total nb_items
	16	set word1 [string compare $nb_items "3"]
	17	set word2 [string compare $total "38"]
	18
	19	if { ${word1} == 0 && ${word2} == 0 } {
	20	puts "OK ${BugNumber}"
	21	} else {
	22	puts "Faulty ${BugNumber}"
	23	}
	24
58cf74e0	25	checkprops result -s 284190
3bea4c16	26
3bea4c16	27