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

puts "============"
puts "OCC2821"
puts "============"
puts ""
######################################################
# IGES file not impored correctly
######################################################

igesbrep [locate_data_file OCC2821.igs] a *

set comp [tpcompound result]
regexp {([-0-9.+eE]+) +Shape\(s\)} $comp full nb
if { $nb < 1} {
    puts "Error : Number of shape(s) listed is wrong"
} else {
    checkprops result -s 41153 
checkshape result
}

checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
61c421bf	1	puts "============"
	2	puts "OCC2821"
	3	puts "============"
	4	puts ""
	5	######################################################
	6	# IGES file not impored correctly
	7	######################################################
	8
	9	igesbrep [locate_data_file OCC2821.igs] a *
	10
	11	set comp [tpcompound result]
	12	regexp {([-0-9.+eE]+) +Shape\(s\)} $comp full nb
	13	if { $nb < 1} {
	14	puts "Error : Number of shape(s) listed is wrong"
	15	} else {
58cf74e0	16	checkprops result -s 41153
58cf74e0	17	checkshape result
61c421bf	18	}
61c421bf	19
5747059b	20	checkview -display result -2d -path ${imagedir}/${test_image}.png
61c421bf	21