From: oan <oan@opencascade.com>
Date: Sat, 19 Oct 2019 21:34:06 +0000 (+0300)
Subject: # added test case
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=53efda427db28dc878e765fbeb571325a0a32072;p=occt-copy.git

# added test case
---

diff --git a/tests/bugs/modalg_7/bug31043 b/tests/bugs/modalg_7/bug31043
new file mode 100644
index 0000000000..696a905f1a
--- /dev/null
+++ b/tests/bugs/modalg_7/bug31043
@@ -0,0 +1,54 @@
+puts "============="
+puts "0031043: GCPnts_TangentialDeflection generates points which number is inconsistent with MinimumOfPoints parameter"
+puts "============="
+
+restore [locate_data_file bug28500_shape_mesh_artifact.brep] result
+
+tclean result
+explode result f
+explode result_7 e
+
+mkcurve c result_7_1
+
+set log [crvtpoints r c 0.01 1.57 1]
+regexp {Nb points : ([0-9]+)} $log full pnts
+
+if { $pnts < 2 } {
+  puts "Error : Incorrect number of points $pnts"
+}
+
+
+set log [crvtpoints r c 0.01 1.57 2]
+regexp {Nb points : ([0-9]+)} $log full pnts
+
+if { $pnts < 2 } {
+  puts "Error : Incorrect number of points $pnts"
+}
+
+set log [crvtpoints r c 0.01 1.57 3]
+regexp {Nb points : ([0-9]+)} $log full pnts
+
+if { $pnts < 3 } {
+  puts "Error : Incorrect number of points $pnts"
+}
+
+set log [crvtpoints r c 0.01 1.57 4]
+regexp {Nb points : ([0-9]+)} $log full pnts
+
+if { $pnts < 4 } {
+  puts "Error : Incorrect number of points $pnts"
+}
+
+set log [crvtpoints r c 0.01 1.57 5]
+regexp {Nb points : ([0-9]+)} $log full pnts
+
+if { $pnts < 5 } {
+  puts "Error : Incorrect number of points $pnts"
+}
+
+set log [crvtpoints r c 0.01 1.57 6]
+regexp {Nb points : ([0-9]+)} $log full pnts
+
+if { $pnts < 6 } {
+  puts "Error : Incorrect number of points $pnts"
+}