0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug29400
1 puts "========"
2 puts "OCC29400"
3 puts "========"
4 puts ""
5 #################################################
6 # Fuse of two edges creates self-interfered shape
7 #################################################
8
9 restore [locate_data_file bug29400_edges.brep] le
10 bclearobjects
11 bcleartools
12 baddcompound le
13 bfillds
14 bbuild result
15
16 checkshape result
17 checknbshapes result -vertex 3 -edge 2
18 checkprops result -l 1.78839
19 if {![regexp "OK" [bopcheck result]]} {
20   puts "Error: the result is self-interfered"
21 }