From cc2b0ec0e304b7a4a0ad79abea0cde814987217c Mon Sep 17 00:00:00 2001
From: apn <apn@opencascade.com>
Date: Thu, 16 Apr 2015 15:08:19 +0300
Subject: [PATCH] 0023138: BRepAlgoAPI_Fuse produce invalid result

Added test case bugs/modalg_6/bug23138
---
 tests/bugs/modalg_6/bug23138 | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 tests/bugs/modalg_6/bug23138

diff --git a/tests/bugs/modalg_6/bug23138 b/tests/bugs/modalg_6/bug23138
new file mode 100644
index 0000000000..29feed63a2
--- /dev/null
+++ b/tests/bugs/modalg_6/bug23138
@@ -0,0 +1,16 @@
+puts "=========="
+puts "OCC23138"
+puts "=========="
+puts ""
+###########################################
+# BRepAlgoAPI_Fuse produce invalid result
+###########################################
+
+restore [locate_data_file bug23138_body.brep] b
+restore [locate_data_file bug23138_thread.brep] t
+
+bop b t
+bopfuse result
+
+set square 23233.2
+set 2dviewer 1