diff --git a/tests/bugs/modalg_1/buc60776_1 b/tests/bugs/modalg_1/buc60776_1
index cdd39cddd1..166e284390 100755
--- a/tests/bugs/modalg_1/buc60776_1
+++ b/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
 
diff --git a/tests/bugs/modalg_5/bug23954 b/tests/bugs/modalg_5/bug23954
new file mode 100644
index 0000000000..7aefad4686
--- /dev/null
+++ b/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
+}
diff --git a/tests/bugs/moddata_1/bug13 b/tests/bugs/moddata_1/bug13
index bf8f11e1d1..b81a51f779 100755
--- a/tests/bugs/moddata_1/bug13
+++ b/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"
 }
 
 
+
+
diff --git a/tests/feat/featprism/S2 b/tests/feat/featprism/S2
index 9d1074da4c..81bbec5afd 100644
--- a/tests/feat/featprism/S2
+++ b/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
+