5493d334 |
1 | puts "============" |
2 | puts "OCC25004" |
3 | puts "============" |
4 | puts "" |
5 | ########################################################################################################## |
6 | # Extrema_ExtCC::Extrema curve/curve incorrect result |
7 | ########################################################################################################## |
8 | |
9 | pload QAcommands |
10 | |
11 | set info [OCC25004] |
12 | regexp {F += +([-0-9.+eE]+)} $info full aF |
13 | regexp {NbExtrema += +([-0-9.+eE]+)} $info full aNb |
14 | |
15 | set expected_F 0.39788735772 |
16 | set expected_aNb 3 |
17 | set tol_abs_dist 1.0e-12 |
18 | set tol_rel_dist 0.1 |
19 | |
20 | checkreal "value F" ${aF} ${expected_F} ${tol_abs_dist} ${tol_rel_dist} |
21 | checkreal "Nbextrema" ${aNb} ${expected_aNb} ${tol_abs_dist} ${tol_rel_dist} |
22 | |