0027126: Create command checktrinfo to verify meshes

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

diff --git a/tests/bugs/modalg_2/bug400 b/tests/bugs/modalg_2/bug400
index ded7e06..15fc063 100755 (executable)
--- a/tests/bugs/modalg_2/bug400
+++ b/tests/bugs/modalg_2/bug400
@@ -1,4 +1,5 @@
-puts "TODO OCC11111 ALL: OCC358 : Faulty"
+puts "TODO OCC11111 ALL: Error: Number of triangles"
+puts "TODO OCC11111 ALL: Error: Number of nodes"
 puts "TODO OCC11111 ALL: Error : The area of result shape is"
 
 puts "========================"
@@ -15,16 +16,7 @@ vdisplay result
 vfit
 vsetdispmode result 1
 
-set tri_info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
-regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
-
-if { $tri == 66 && $nod ==70} {
-    puts " Warning:  OCC358  looks like OK, but visual checking is required !!!!"
-} else {
-    puts "OCC358 : Faulty , but visual checking is required !!!!"
-}
-
+checktrinfo result -tri 66 -nod 70
 checkprops result -s 0 
 checkshape result
 checkview -screenshot -3d -path ${imagedir}/${test_image}.png