From 27eb1660efbf0573b8658f69a51adf5d2fe73542 Mon Sep 17 00:00:00 2001
From: oan <oan@opencascade.com>
Date: Mon, 1 Feb 2016 12:16:33 +0300
Subject: [PATCH] 0024593: Missing surfaces from STL output

Added test cases
---
 tests/bugs/mesh/bug24593_1 | 36 ++++++++++++++++++++++++++++++++++++
 tests/bugs/mesh/bug24593_2 | 36 ++++++++++++++++++++++++++++++++++++
 2 files changed, 72 insertions(+)
 create mode 100644 tests/bugs/mesh/bug24593_1
 create mode 100644 tests/bugs/mesh/bug24593_2

diff --git a/tests/bugs/mesh/bug24593_1 b/tests/bugs/mesh/bug24593_1
new file mode 100644
index 0000000000..3330984209
--- /dev/null
+++ b/tests/bugs/mesh/bug24593_1
@@ -0,0 +1,36 @@
+puts "========"
+puts "OCC24593"
+puts "========"
+puts ""
+#################################
+# Missing surfaces from STL output
+#################################
+
+pload XDE
+
+set refnbfaces 69
+
+stepread [locate_data_file "285330.stp"] a *
+renamevar a_1 result
+
+#1
+vinit
+vsetdispmode 1
+vdisplay result
+vfit
+vdump ${imagedir}/${casename}.png
+
+#2
+set log1 [explode result f]
+set nbfaces [llength $log1]
+
+#3
+set log2 [tricheck result]
+
+if { $nbfaces != $refnbfaces } {
+  puts "Error : Shape restored incorrectly - number of faces is different than expected value ($nbfaces != $refnbfaces)"
+}
+
+if { [llength $log2] != 0 } {
+  puts "Error : Some faces has failed to mesh"
+}
diff --git a/tests/bugs/mesh/bug24593_2 b/tests/bugs/mesh/bug24593_2
new file mode 100644
index 0000000000..291e01b16d
--- /dev/null
+++ b/tests/bugs/mesh/bug24593_2
@@ -0,0 +1,36 @@
+puts "========"
+puts "OCC24593"
+puts "========"
+puts ""
+#################################
+# Missing surfaces from STL output
+#################################
+
+pload XDE
+
+set refnbfaces 23
+
+stepread [locate_data_file "281946.stp"] a *
+renamevar a_1 result
+
+#1
+vinit
+vsetdispmode 1
+vdisplay result
+vfit
+vdump ${imagedir}/${casename}.png
+
+#2
+set log1 [explode result f]
+set nbfaces [llength $log1]
+
+#3
+set log2 [tricheck result]
+
+if { $nbfaces != $refnbfaces } {
+  puts "Error : Shape restored incorrectly - number of faces is different than expected value ($nbfaces != $refnbfaces)"
+}
+
+if { [llength $log2] != 0 } {
+  puts "Error : Some faces has failed to mesh"
+}
-- 
2.39.5