mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
408e0d5cf1
boolean bsection M9 N5 Adjusting test cases in DEBUG mode to current state of master (increase cpulimit and modified TODOs) bugs modalg_5 bug24327 Added TODO in test case to avoid regression in DEBUG mode caused by integration of 24327 perf bop builface Increase cpulimit of test case (problem in DEBUG mode)
38 lines
1.1 KiB
Plaintext
38 lines
1.1 KiB
Plaintext
puts "TODO DEBUG_OCC24327 ALL: Tcl Exception"
|
|
puts "TODO DEBUG_OCC24327 ALL: TEST INCOMPLETE"
|
|
|
|
puts "============"
|
|
puts "OCC24327"
|
|
puts "============"
|
|
puts ""
|
|
#################################################
|
|
# Wrong result obtained by Exterma Curve/Curve
|
|
#################################################
|
|
|
|
restore [locate_data_file bug24200_c1] c1
|
|
restore [locate_data_file bug24200_c2] c2
|
|
|
|
trim c1t c1 0. 1260.
|
|
trim c2t c2 0. 6142.
|
|
|
|
set info_1 [extrema c1t c2t]
|
|
set extrema_N [llength ${info_1}]
|
|
if { ${extrema_N} < 1 } {
|
|
puts "Error : Extrema is wrong"
|
|
} else {
|
|
for { set i 1 } { ${i} <= ${extrema_N} } { incr i } {
|
|
set info_2 [length ext_${i}]
|
|
regexp { is +([-0-9.+eE]+)} ${info_2} full edge_length
|
|
if { ${i} == 1 } {
|
|
set min_length ${edge_length}
|
|
}
|
|
if { ${min_length} > ${edge_length} } {
|
|
set min_length ${edge_length}
|
|
}
|
|
}
|
|
set expected_length 2.8421709430404007e-13
|
|
set tol_abs_length 1.0e-07
|
|
set tol_rel_length 0.01
|
|
checkreal "Minimal length" ${min_length} ${expected_length} ${tol_abs_length} ${tol_rel_length}
|
|
}
|