5 ###################################################
6 ## [Regression] 6.7.0beta ShapeFix_EdgeProjAux breaks conventions on using IsDone flag
7 ###################################################
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
16 set info [OCC24370 edge pcurve surface ${precision}]
18 set IsFirstDone [lindex ${info} 0]
19 set IsLastDone [lindex ${info} 1]
20 set First [lindex ${info} 2]
21 set Last [lindex ${info} 3]
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}
29 set tol_abs_Last 1.0e-03
31 checkreal "Last" ${Last} ${expected_Last} ${tol_abs_Last} ${tol_rel_Last}