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


puts "========================"
puts "BUC60968"
puts "========================"

restore [locate_data_file buc60968-c.draw] c 
restore [locate_data_file buc60968-s1.draw] s1

set che [extrema c s1]
set err [llength $che]
if { $err == 0} {
    puts "Error : command extrema does NOT work properly"
}
Commit	Line	Data
0e94a94e	1
	2	puts "========================"
	3	puts "BUC60968"
	4	puts "========================"
	5
	6	restore [locate_data_file buc60968-c.draw] c
	7	restore [locate_data_file buc60968-s1.draw] s1
	8
	9	set che [extrema c s1]
	10	set err [llength $che]
	11	if { $err == 0} {
	12	puts "Error : command extrema does NOT work properly"
	13	}
	14
	15
	16