From: msv <msv@opencascade.com>
Date: Fri, 29 Jul 2016 15:38:20 +0000 (+0300)
Subject: Create test case
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=b930adbe57069b7bcebef5a714e292b2b38e6b68;p=occt-copy.git

Create test case
---

diff --git a/tests/bugs/heal/bug27729 b/tests/bugs/heal/bug27729
new file mode 100644
index 0000000000..25ddefe587
--- /dev/null
+++ b/tests/bugs/heal/bug27729
@@ -0,0 +1,18 @@
+puts "========"
+puts "OCC27729"
+puts "========"
+puts ""
+#######################################################################
+# UnifySameDomain: allow the user to specify linear and angular tolerances
+#######################################################################
+
+restore [locate_data_file a_1275.brep] a
+
+unifysamedom r a -t 0.1 -a 0.08
+
+regexp {FACE *: *(\d*)} [nbshapes r] full nbfaces
+if {$nbfaces > 1000} {
+  puts "Error: number of faces in the result is too large"
+}
+
+checkview -display r -2d -path ${imagedir}/${test_image}.png
\ No newline at end of file