5 ##########################################################################################################
6 # Check PolygonOnTriangulation contained in edges
7 ##########################################################################################################
9 restore [locate_data_file bug25109_e1.brep] b
12 set info [checkshape b]
15 if { [regexp "This shape seems to be valid" ${info}] == 1 } {
16 puts "Error: checkshape is incorrect"
18 puts "OK: checkshape is correct"