puts "================"
puts "CR24849"
puts "================"
puts ""
###############################################
## Crash on Pipe creation
###############################################

pload OCAF

Open [locate_data_file bug24849_Study1_GEOM.cbf] D

GetShape D 0:1:465:1:1:2 f
GetShape D 0:1:283:1:1:2 w
explode w e
wire ww w_2

pipe result ww f 2

checknbshapes result -vertex 4 -edge 8 -wire 7 -face 7 -shell 2 -solid 2 -compsolid 0 -compound 1 -shape 31
checkview -display result -2d -path ${imagedir}/${test_image}.png