72c3a6a1d0ba5a75c11563b3d430f932133a4352
[occt.git] / tests / bugs / moddata_3 / bug27356
1 puts "# ============================================================="
2 puts "# 0027356: BRepTools::Clean() does not clean free edges from Poly_Polygon3D"
3 puts "# ============================================================="
4 puts ""
5
6 puts "Create simple straight edge and tessellate it"
7 vertex v1 0 0 0
8 vertex v2 1 0 0
9 edge e v1 v2
10 incmesh e 0.01
11
12 puts "Clean triangulation and check that there are no Polygon3Ds remained"
13 tclean e
14 if { ! [regexp {Dump of ([0-9]+) Polygon3Ds} [dump e] res count] } {
15   puts "Error: Cannot find number of Polygon3Ds in output of trinfo command"
16 } elseif { $count != 0 } {
17   puts "Error: $count Polygon3Ds are found (zero expected)!"
18 }