0028426: Implementation of the EdgesToFaces function

[occt.git] / tests / mkface / edges_to_faces / B7

diff --git a/tests/mkface/edges_to_faces/B7 b/tests/mkface/edges_to_faces/B7
new file mode 100644 (file)
index 0000000..590f4d2
--- /dev/null
+++ b/tests/mkface/edges_to_faces/B7
@@ -0,0 +1,20 @@
+puts "========"
+puts "OCC28426"
+puts "========"
+puts ""
+#################################################
+# Implementation of the EdgesToFaces function
+#################################################
+
+restore [locate_data_file bug28426_edges_6.brep] c
+
+edgestofaces result c
+
+checkshape result
+checknbshapes result -face 13 -wire 13
+
+if { [regexp "This shape seems to be OK" [bopcheck result]] != 1 } {
+  puts "Error : The result is self-interfered"
+}
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png