puts "========"
puts "OCC25272"
puts "========"
puts ""
##################################################################
# Regression in BRepOffsetAPI_MakePipe: invalid shape is created
##################################################################

restore [locate_data_file bug25272_base.brep] b
restore [locate_data_file bug25272_path.brep] p

pipe r p b

set bug_info [checkshape r]
if {[string compare $bug_info "This shape seems to be valid"] != 0} {
  puts "ERROR: OCC25272 is reproduced"
  puts "       shape result is invalid"
}