[occt.git] / tests / bugs / modalg_5 / bug24946

puts "==========="
puts "OCC24946"
puts "==========="
puts ""
######################################################
# Wrong result obtained by Extrema Curve/Curve
######################################################

restore [locate_data_file bug24946_ez5] b1
restore [locate_data_file bug24946_ez101] b2

mkcurve cb1 b1
mkcurve cb2 b2

extrema cb1 cb2
regexp {The length ext_1 is+ +([-0-9.+eE]+)} [length ext_1] full ll

if { $ll < 1.0e-7 } {
  puts "OK: extrema is good"
} else {
  puts "Error: extrema is wrong"
}
Commit	Line	Data
2fe0e897	1	puts "==========="
	2	puts "OCC24946"
	3	puts "==========="
	4	puts ""
	5	######################################################
	6	# Wrong result obtained by Extrema Curve/Curve
	7	######################################################
	8
	9	restore [locate_data_file bug24946_ez5] b1
	10	restore [locate_data_file bug24946_ez101] b2
	11
	12	mkcurve cb1 b1
	13	mkcurve cb2 b2
	14
	15	extrema cb1 cb2
	16	regexp {The length ext_1 is+ +([-0-9.+eE]+)} [length ext_1] full ll
	17
	18	if { $ll < 1.0e-7 } {
	19	puts "OK: extrema is good"
	20	} else {
	21	puts "Error: extrema is wrong"
	22	}