puts "================"
puts "OCC23845"
puts "================"
puts ""
#######################################################################
# New auxilary method concatenating a wire into an edge based on C0-continuous curve.
#######################################################################

restore [locate_data_file bug23845_profil_0a.brep] a
restore [locate_data_file bug23845_profil_1a.brep] b

concatC0wire aa a
concatC0wire bb b

set CMP_TOL 1.e-6

# 1
checkshape aa
set tolmaxres [tolmax aa]
regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance
if { ${MaxTolerance} > ${CMP_TOL} } {
   puts "Error: invalid tolerance of first wire"
}

# 2
checkshape bb
set tolmaxres [tolmax bb]
regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance
if { ${MaxTolerance} > ${CMP_TOL} } {
   puts "Error: invalid tolerance of second wire"
}