puts "TODO OCC25597 ALL: Error: Vertex tolerance"
puts "TODO OCC25597 ALL: Error: Edge tolerance"
puts "============"
puts "OCC22967"
puts "============"
puts ""
############################################################################################################
# Boolean operations between two cylinders with orthogonal axis generate a shape with big vertex tolerance
###########################################################################################################

set BugNumber OCC22967

restore [locate_data_file bug22967_Cylinder_1.brep] b1 
restore [locate_data_file bug22967_Scale_1.brep] b2 
bop b1 b2
bopfuse result
set info [ maxtolerance result ]

regexp {Edge[ \t]*:.*Max[ \t]*([-0-9.+eE]+)} $info full last1
regexp {Vertex[ \t]*:.*Max[ \t]*([-0-9.+eE]+)} $info full last

set check_value 8.46459e-006

checkreal "Vertex tolerance" ${last} ${check_value} 0 0.05
checkreal "Edge tolerance" ${last1} ${check_value} 0 0.05
checkprops result -s 668843 
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png