puts "=========="
puts "OCC24519"
puts "=========="
puts ""
####################################################################
# 0024519: Intersection of a cylinder and a plane does not return
####################################################################

restore [locate_data_file bug24519_cylinder.brep] cy
restore [locate_data_file bug24519_plane.brep] pl

bsection r1 cy pl
section r2 cy pl
set exp1 [explode r1]
set exp2 [explode r2]

if { $exp1 != "r1_1" } {
  puts "Error: First intersection is not returned"
}
if { $exp2 != "r2_1" } {
  puts "Error: Second intersection is not returned"
}

checksection r1
checksection r2
checkprops r1 -l 3.83537
checkprops r2 -l 3.83537