From 27a6612865a30b0491f4f37901a9d3da93f09dd1 Mon Sep 17 00:00:00 2001
From: azv <azv@opencascade.com>
Date: Thu, 22 Jan 2015 17:42:06 +0300
Subject: [PATCH 1/1] 0020040: Difference in treatment of closed curves in
 BRep_Builder::UpdateEdge

Test case was added

Modified test cases to extract the shell from the solid and check it for closeness.
---
 tests/bugs/modalg_2/bug5805_49 |  3 +++
 tests/bugs/modalg_3/bug5805_50 |  2 ++
 tests/bugs/modalg_3/bug5805_51 |  2 ++
 tests/bugs/modalg_3/bug5805_52 |  2 ++
 tests/bugs/modalg_5/bug20040   | 18 ++++++++++++++++++
 5 files changed, 27 insertions(+)
 create mode 100644 tests/bugs/modalg_5/bug20040

diff --git a/tests/bugs/modalg_2/bug5805_49 b/tests/bugs/modalg_2/bug5805_49
index a9287d3391..6f1718d8ed 100755
--- a/tests/bugs/modalg_2/bug5805_49
+++ b/tests/bugs/modalg_2/bug5805_49
@@ -11,6 +11,9 @@ set BugNumber OCC5805
 # pcone
 pcone s 30 5 20
 
+explode s sh
+renamevar s_1 s
+
 set distance -0.5
 catch { OFFSETSHAPE $distance {} $calcul $type }
 
diff --git a/tests/bugs/modalg_3/bug5805_50 b/tests/bugs/modalg_3/bug5805_50
index 53dbd0e1e3..5d02a676c6 100755
--- a/tests/bugs/modalg_3/bug5805_50
+++ b/tests/bugs/modalg_3/bug5805_50
@@ -10,6 +10,8 @@ set BugNumber OCC5805
 
 # pcone
 pcone s 30 5 20
+explode s sh
+renamevar s_1 s
 
 set distance -0.5
 catch { OFFSETSHAPE $distance {s_2} $calcul $type }
diff --git a/tests/bugs/modalg_3/bug5805_51 b/tests/bugs/modalg_3/bug5805_51
index 10e2c0bd31..336ba56c12 100755
--- a/tests/bugs/modalg_3/bug5805_51
+++ b/tests/bugs/modalg_3/bug5805_51
@@ -10,6 +10,8 @@ set BugNumber OCC5805
 
 # pcone
 pcone s 30 5 20
+explode s sh
+renamevar s_1 s
 
 set distance -0.5
 catch { OFFSETSHAPE $distance {s_3} $calcul $type }
diff --git a/tests/bugs/modalg_3/bug5805_52 b/tests/bugs/modalg_3/bug5805_52
index b18bfd9a63..a3d83376d8 100755
--- a/tests/bugs/modalg_3/bug5805_52
+++ b/tests/bugs/modalg_3/bug5805_52
@@ -10,6 +10,8 @@ set BugNumber OCC5805
 
 # pcone
 pcone s 30 5 20
+explode s sh
+renamevar s_1 s
 
 set distance -0.5
 catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type }
diff --git a/tests/bugs/modalg_5/bug20040 b/tests/bugs/modalg_5/bug20040
new file mode 100644
index 0000000000..26514cf3c7
--- /dev/null
+++ b/tests/bugs/modalg_5/bug20040
@@ -0,0 +1,18 @@
+puts "=========="
+puts "OCC20040"
+puts "=========="
+puts ""
+###############################################
+# Incorrect result of thrusections operation
+###############################################
+
+restore [locate_data_file bug20040_profile.brep] w1
+checkshape w1
+
+copy w1 w2
+ttranslate w2 0 0 1
+
+thrusections -N result 0 0 w1 w2
+checkshape result
+
+set 2dviewer 1
-- 
2.20.1