1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
occt/tests/bugs/modalg_5/bug24946
aml 2fe0e897e3 0024946: Wrong result obtained by Extrema Curve/Curve
Fixes in Extrema Curve/Curve algorithm and in corresponding testcase.
Added test case bugs/modalg_5/bug24946
2014-05-29 16:23:18 +04:00

23 lines
520 B
Plaintext

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"
}