5 ###############################################################################
6 # GCPnts_QuasiUniformDeflection achieves incorrect result on some curve.
7 ###############################################################################
9 restore [locate_data_file bug25207_DumpShape2.brep] cc
12 set info [crvpoints r cc 1.e-3]
14 set str1 "Nb points +: +(\[-0-9.+eE\]+)\n"
15 set str2 "Max defl: +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+)"
17 regexp "${str1}${str2}" ${info} full Nb dmax ufmax ulmax i
20 if { ${Nb} != ${expected_Nb} } {
21 puts "Error : bad value of Nb points=${Nb}"
27 set expected_dmax 0.0013771610718045313
28 set expected_ufmax 0.953125
30 checkreal "dmax" ${dmax} ${expected_dmax} ${tol_abs} ${tol_rel}
31 checkreal "ufmax" ${ufmax} ${expected_ufmax} ${tol_abs} ${tol_rel}
33 set expected_ulmax 0.96875
34 if { ${ulmax} != ${expected_ulmax} } {
35 puts "Error : bad value of ulmax=${ulmax}"
38 if { ${i} != ${expected_i} } {
39 puts "Error : bad value of i=${i}"