0025109: Check PolygonOnTriangulation contained in edges
[occt.git] / tests / bugs / moddata_3 / bug25109
1 puts "============"
2 puts "CR25109"
3 puts "============"
4 puts ""
5 ##########################################################################################################
6 # Check PolygonOnTriangulation contained in edges
7 ##########################################################################################################
8
9 restore [locate_data_file bug25109_e1.brep] b
10
11 decho off
12 set info [checkshape b]
13 decho on
14
15 if { [regexp "This shape seems to be valid" ${info}] == 1 } {
16     puts "Error: checkshape is incorrect"
17 } else {
18     puts "OK: checkshape is correct"
19 }