set ExpectDeviation 0.36597801294402493

restore [locate_data_file OCC538.brep] r
smallview -2D-
pcurve r

trim cc r_3 1.5704826035188950 3.1409652070377900
don cc
2dfit

set log_result1 [2ddeviation res cc -d 8]
regexp {Computed value is: +([-0-9.+eE]+)} $log_result1 full aDev1
checkreal FoundDeviation $aDev1 $ExpectDeviation 1.0e-9 0.0
checkview -screenshot -2d -path ${imagedir}/${test_image}_1.png

reverse cc 
don cc
2dfit

set log_result2 [2ddeviation res cc -d 8]
regexp {Computed value is: +([-0-9.+eE]+)} $log_result2 full aDev2
checkview -screenshot -2d -path ${imagedir}/${test_image}_2.png
checkreal FoundDeviation $aDev2 $ExpectDeviation 1.0e-9 0.0