Update test cases database

- bugs modalg_5 bug23954 -      Added test case for issue 23954
- bugs modalg_1 bug60776_1 -  Corrected square of shape and deleted appropriate TODO
- bugs moddata_1 bug13 -          Added check for the curve length obtained as a result of intersection
- feat featprism S2 -                     Corrected square of shape and deleted appropriate TODO

tests/bugs/modalg_1/buc60776_1

@@ -1,15 +1,13 @@
-
 puts "========================"
 puts "BUC60776"
 puts "========================"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
 restore [locate_data_file buc60776a.brep] a
 checkshape a
 restore [locate_data_file buc60776b.brep] b
 checkshape b
 bfuse result a b
 
-set square 60771.3
+set square 61626.2
 
 set 2dviewer 1
 

tests/bugs/modalg_5/bug23954

@@ -0,0 +1,19 @@
+puts "============"
+puts "OCC23954"
+puts "============"
+puts ""
+##########################################################
+# BRepPrimAPI_MakeRevol fails to recognize a torus case
+##########################################################
+
+circle c_1 0 100 0 1 0 0 0 1 0 100
+circle c_2 0 100 0 1 0 0 0 0 1 100
+circle c_3 0 100 0 1 0 0 0 -1 0 100
+circle c_4 0 100 0 1 0 0 0 0 1 10
+circle c_5 0 100 0 1 0 0 0 0 1 120
+for { set i 1 } { $i <= 5 } { incr i } {
+    mkedge e c_$i
+    revol r e 0 0 0 0 0 1 90
+    mksurface s_$i r
+    dump s_$i
+}

tests/bugs/moddata_1/bug13

@@ -1,4 +1,3 @@
-
 puts "================"
 puts "OCC13"
 puts "================"
@@ -23,15 +22,36 @@ set nom 0
      set che1 [whatis res_$j]
       set err [lindex $che [expr [llength $che] - 1]]
        set err1 [lindex $che1 [expr [llength $che1] - 2]]
-
-          if { $err != "curve" && $err1 != "3d"} {
-            break
-              } else {
-                set nom [expr $nom + 1]
-              }
-    incr j}
+        if { $err != "curve" && $err1 != "3d"} {
+          break
+        } else {
+          set nom [expr $nom + 1]
+          if { $j == 1 } {
+            set info [length res_$j]
+            regexp {The length res_1 is+ +([-0-9.+eE]+)} $info full ll
+            set lcheck_1 5.6627572343058755e-05
+            if { [expr 1.*abs($lcheck_1 - $ll)/$lcheck_1] > 0.01 } {
+              puts "Error : The lenght of result shape is $ll"
+            } else {
+              puts "OK : The length of result shape is ok"
+            }
+          }
+          if { $j == 2 } {
+            set info [length res_$j]
+            regexp {The length res_2 is+ +([-0-9.+eE]+)} $info full ll
+            set lcheck_2 5.5763870549528719e-05
+            if { [expr 1.*abs($lcheck_2 - $ll)/$lcheck_2] > 0.01 } {
+              puts "Error : The lenght of result shape is $ll"
+            } else {
+              puts "OK : The length of result shape is ok"
+            }
+          }
+        incr j }
+   }
 if { $nom == 0} {
-   puts "Error : Intersection was made WRONGLY"
+  puts "Error : Intersection was made WRONGLY"
 }
 
 
+
+

tests/feat/featprism/S2

@@ -1,5 +1,4 @@
 # cts20088
-puts "TODO OCC22810 ALL: Error : The area of the resulting shape is"
 
 restore [locate_data_file cts20088_base.brep] base
 restore [locate_data_file contour_pkv.rle] cont
@@ -14,4 +13,5 @@ mkface f55 p55
 featprism base cont cont 1 0 0 1 1
 featperform prism result f54 f55
 
-set square 7238.64
+set square 4685.62
+