5 #############################
6 # Invalid pipe construction
7 #############################
9 restore [locate_data_file OCC25887_shape.brep] a
20 set bug_info [checkshape res]
21 if {[string compare $bug_info "This shape seems to be valid"] != 0} {
22 puts "ERROR: OCC25887 is reproduced."
25 checkview -screenshot -2d -path ${imagedir}/${test_image}.png