From: jgv <jgv@opencascade.com>
Date: Mon, 15 Aug 2022 10:08:17 +0000 (+0300)
Subject: Add test case
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=ee9138a85926d3ac2c62666648f3ecc09b99fa8b;p=occt.git

Add test case
---

diff --git a/tests/bugs/modalg_8/bug32670 b/tests/bugs/modalg_8/bug32670
new file mode 100644
index 0000000000..d8b9b55cde
--- /dev/null
+++ b/tests/bugs/modalg_8/bug32670
@@ -0,0 +1,30 @@
+puts "=================================="
+puts "OCC32670: BOP fuse unstable result"
+puts "=================================="
+puts ""
+
+restore [locate_data_file bug32670.brep] Curve_parabolic
+ellipse ell 0 0 0 0 0 1 1.6285714285714286 1.6285714285714286
+mkedge ee ell
+wire ww ee
+pipe Pipe_1 ww Curve_parabolic
+ssolid Pipe_1 a
+pcylinder b 7 10
+explode a f
+explode b f
+donly a_7 b_1
+
+bop a_7 b_1
+bopsection result
+
+checknbshapes result -t -vertex 10 -edge 7
+
+set tolres [checkmaxtol result]
+
+if { ${tolres} > 0.0016} {
+   puts "Error: bad tolerance of result"
+}
+
+checkprops result -l 26.7184
+
+checkview -display result -2d -path ${imagedir}/${test_image}.png
\ No newline at end of file