0027126: Create command checktrinfo to verify meshes

[occt.git] / tests / bugs / vis / bug364

diff --git a/tests/bugs/vis/bug364 b/tests/bugs/vis/bug364
index 419e4a6..5f9207d 100755 (executable)
--- a/tests/bugs/vis/bug364
+++ b/tests/bugs/vis/bug364
@@ -18,16 +18,7 @@ vsetdispmode result 1
 vfit
 triangles result
 
-set info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $info full tri
-regexp { +([-0-9.+eE]+) +nodes} $info full nod
-
-if { $tri != 92 || $nod != 92 }  {
-   puts "Faulty OCC364: here is shading problem"
-} else {
-   puts "Shading of  OCC364 is OK"
-}
-
+checktrinfo result -tri 92 -nod 92
 checkview -screenshot -3d -path ${imagedir}/${test_image}.png