From 309bad284df324af2a7287b34b009f689da3d9be Mon Sep 17 00:00:00 2001
From: nbv <nbv@opencascade.com>
Date: Tue, 12 Apr 2016 18:16:00 +0300
Subject: [PATCH] 0026918: GeomLib_CheckCurveOnSurface cannot compute distance
 if 3D-curve is periodic

Creation of test case for this issue.
---
 tests/bugs/modalg_2/bug22967 | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/tests/bugs/modalg_2/bug22967 b/tests/bugs/modalg_2/bug22967
index adf544e5fc..2470b579c3 100755
--- a/tests/bugs/modalg_2/bug22967
+++ b/tests/bugs/modalg_2/bug22967
@@ -27,3 +27,24 @@ checkprops result -s 668843
 checkshape result
 checkview -display result -2d -path ${imagedir}/${test_image}.png
 
+
+############################################################################################################
+# Addition checks according to the issue OCC26918
+###########################################################################################################
+
+set i 1
+set Lf [explode result f]
+foreach ff $Lf {
+  set Le [explode $ff e]
+  
+  set j 1
+  foreach ee $Le {
+    if { [string first "Tolerance cannot be computed" [xdistef $ee $ff]] >= 0 } {
+      puts "Error: \"xdistef result_$i_$j result_$i\" cannot find maximal distance "
+    }
+    
+    incr j
+  }
+  
+  incr i
+}