[occt.git] / tests / bugs / iges / buc60595_2

puts "=================="
puts "BUC60595"
puts "=================="

set bug_var [ igesbrep [locate_data_file buc60595b.igs] a * ] 

tpcompound result

if { [ string match "*Uninspired signal*" $bug_var ] == 1 } {
    puts "Error : TEST FAILED"
}

isos 0
isos result 15

puts "Previously here was message:  Uninspired signal 8"

set 2dviewer 0
Commit	Line	Data
0e94a94e	1	puts "=================="
	2	puts "BUC60595"
	3	puts "=================="
	4
	5	set bug_var [ igesbrep [locate_data_file buc60595b.igs] a * ]
	6
	7	tpcompound result
	8
	9	if { [ string match "Uninspired signal" $bug_var ] == 1 } {
	10	puts "Error : TEST FAILED"
	11	}
	12
	13	isos 0
	14	isos result 15
	15
	16	puts "Previously here was message: Uninspired signal 8"
	17
	18	set 2dviewer 0