From dfc3f102e6f78e19a0b2d92e76f39cd45b2c0d9c Mon Sep 17 00:00:00 2001
From: apv <apv@opencascade.com>
Date: Thu, 12 Oct 2017 10:57:25 +0300
Subject: [PATCH] Update of tests database

Test for 0021134: checkshape command does not return faulty shapes.
Test for 0021494: Intersection between cone and sphere fails
Test for 0022642: Refactoring of ShapeFix_Wire::FixIntersectingEdges
Test for 0022732: Reading a STEP file produces invalid shape
---
 tests/bugs/heal/bug22642     | 14 ++++++++++++++
 tests/bugs/modalg_7/bug21134 | 18 ++++++++++++++++++
 tests/bugs/modalg_7/bug21494 | 22 ++++++++++++++++++++++
 tests/bugs/step/bug22732     | 14 ++++++++++++++
 4 files changed, 68 insertions(+)
 create mode 100644 tests/bugs/heal/bug22642
 create mode 100755 tests/bugs/modalg_7/bug21134
 create mode 100644 tests/bugs/modalg_7/bug21494
 create mode 100644 tests/bugs/step/bug22732

diff --git a/tests/bugs/heal/bug22642 b/tests/bugs/heal/bug22642
new file mode 100644
index 0000000000..947fc5f2cb
--- /dev/null
+++ b/tests/bugs/heal/bug22642
@@ -0,0 +1,14 @@
+puts "TODO OCC22642 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "========"
+puts "OCC22642"
+puts "========"
+puts ""
+######################################################
+# Refactoring of ShapeFix_Wire::FixIntersectingEdges
+######################################################
+
+restore [locate_data_file bug22642_ss_47.brep] f
+fixshape result f -l -o -h -m -d -s +i -n
+
+checkshape result
diff --git a/tests/bugs/modalg_7/bug21134 b/tests/bugs/modalg_7/bug21134
new file mode 100755
index 0000000000..0bd45a2e87
--- /dev/null
+++ b/tests/bugs/modalg_7/bug21134
@@ -0,0 +1,18 @@
+puts "TODO OCC21134  ALL: Error: checkshape command does not return faulty shapes"
+
+puts "============"
+puts "OCC21134"
+puts "============"
+puts ""
+######################################################
+# checkshape command does not return faulty shapes.
+######################################################
+
+restore [locate_data_file bug21134_r.brep] res
+
+checkshape res
+
+set Log [bopcheck res]
+if {[regexp "This shape seems to be OK" ${Log}] != 1} {
+    puts "Error: checkshape command does not return faulty shapes."
+}
diff --git a/tests/bugs/modalg_7/bug21494 b/tests/bugs/modalg_7/bug21494
new file mode 100644
index 0000000000..f91ce163eb
--- /dev/null
+++ b/tests/bugs/modalg_7/bug21494
@@ -0,0 +1,22 @@
+puts "TODO OCC21494 ALL: Error: Intersection between cone and sphere fails"
+
+puts "========"
+puts "OCC21494"
+puts "========"
+puts ""
+############################################
+# Intersection between cone and sphere fails
+############################################
+
+pcone c 15 0 10
+psphere s 10
+explode c f
+explode s f
+mksurface sc c_1
+mksurface ss s_1
+
+intersect i sc ss
+
+if { [info exist i_1] == 0 } {
+  puts "Error: Intersection between cone and sphere fails"
+}
diff --git a/tests/bugs/step/bug22732 b/tests/bugs/step/bug22732
new file mode 100644
index 0000000000..6a1063d8da
--- /dev/null
+++ b/tests/bugs/step/bug22732
@@ -0,0 +1,14 @@
+puts "TODO OCC22732 ALL: Faulty shapes in variables faulty_1 to faulty_"
+
+puts "========"
+puts "OCC22732"
+puts "========"
+puts ""
+##############################################
+# Reading a STEP file produces invalid shape
+##############################################
+
+ReadStep D1 [locate_data_file bug22732_MASTER_ASSEMBLE.stp]
+XGetOneShape result D1
+
+checkshape result