0022818: Wrong triangulation of Revolution surface with slice angle <= 180 degree

[occt.git] / tests / bugs / modalg_2 / bug22818_1

diff --git a/tests/bugs/modalg_2/bug22818_1 b/tests/bugs/modalg_2/bug22818_1
index 25e8195..255991a 100755 (executable)
--- a/tests/bugs/modalg_2/bug22818_1
+++ b/tests/bugs/modalg_2/bug22818_1
@@ -1,3 +1,5 @@
+puts "TODO OCC23832 ALL: Error   : area by triangles differs from the actual area by"
+
 puts "================"
 puts "OCC22818"
 puts "================"
@@ -33,4 +35,24 @@ set nb_compsol_good 0
 set nb_compound_good 0
 set nb_shape_good 21
 
-set 3dviewer 1
+vinit
+vdisplay result
+vsetdispmode 1
+vfit
+vzfit
+
+# relative tolerance (%)
+set rel_tol 1
+set area_eps 0
+#
+puts "\nChecking triangulation area (triarea command)..."
+set rel_err [expr abs([CheckTriArea result $area_eps])]
+if { $rel_err > $rel_tol } {
+   puts "Error   : area by triangles differs from the actual area by $rel_err %"
+} else {
+   if { $rel_tol > 1 && $rel_tol < 100 } {
+      puts "Error: Improvement: The current area difference is $rel_err instead of $rel_tol"
+   }
+}
+
+set only_screen 1