e3096dec |
1 | puts "============" |
2 | puts "OCC24370" |
3 | puts "============" |
4 | puts "" |
5 | ################################################### |
6 | ## [Regression] 6.7.0beta ShapeFix_EdgeProjAux breaks conventions on using IsDone flag |
7 | ################################################### |
8 | |
9 | pload QAcommands |
10 | |
11 | restore [locate_data_file bug24370_edge.brep] edge |
12 | restore [locate_data_file bug24370_pcurve_draw] pcurve |
13 | restore [locate_data_file bug24370_surface_draw] surface |
14 | set precision 0.001 |
15 | |
16 | set info [OCC24370 edge pcurve surface ${precision}] |
17 | |
18 | set IsFirstDone [lindex ${info} 0] |
19 | set IsLastDone [lindex ${info} 1] |
20 | set First [lindex ${info} 2] |
21 | set Last [lindex ${info} 3] |
22 | |
23 | set expected_First 0 |
24 | set tol_abs_First 1.0e-03 |
25 | set tol_rel_First 0.01 |
26 | checkreal "First" ${First} ${expected_First} ${tol_abs_First} ${tol_rel_First} |
27 | |
28 | set expected_Last 1 |
29 | set tol_abs_Last 1.0e-03 |
30 | set tol_rel_Last 0.01 |
31 | checkreal "Last" ${Last} ${expected_Last} ${tol_abs_Last} ${tol_rel_Last} |