[occt.git] / tests / bugs / step / bug2845

puts "========"
puts "OCC2845"
puts "========"
puts ""
####################################################
## Regression of work of selections for STEP translator.
####################################################

set BugNumber OCC2845
set filepath [locate_data_file extref.stp]
if [catch { stepread $filepath a * } res] {
    puts "Faulty ${BugNumber} : here is reading problem"
} else {
    tpcompound result
    set info [listtypes xst-transferrable-roots]
    if {$info == ""} {
        puts "Faulty ${BugNumber}"
    } else {
	puts "OK ${BugNumber}"
    }
}

checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
06da7b7e	1	puts "========"
	2	puts "OCC2845"
	3	puts "========"
	4	puts ""
	5	####################################################
	6	## Regression of work of selections for STEP translator.
	7	####################################################
	8
	9	set BugNumber OCC2845
	10	set filepath [locate_data_file extref.stp]
	11	if [catch { stepread $filepath a * } res] {
	12	puts "Faulty ${BugNumber} : here is reading problem"
	13	} else {
	14	tpcompound result
	15	set info [listtypes xst-transferrable-roots]
	16	if {$info == ""} {
	17	puts "Faulty ${BugNumber}"
	18	} else {
	19	puts "OK ${BugNumber}"
	20	}
	21	}
	22
5747059b	23	checkview -display result -2d -path ${imagedir}/${test_image}.png
06da7b7e	24