0027126: Create command checktrinfo to verify meshes

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

diff --git a/tests/bugs/vis/bug288_4 b/tests/bugs/vis/bug288_4
index 9d67af8..08f3e7a 100755 (executable)
--- a/tests/bugs/vis/bug288_4
+++ b/tests/bugs/vis/bug288_4
@@ -14,18 +14,5 @@ isos result 0
 triangles result
 vfit
 
-set tri 0
-set nod 0
-set info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $info full tri
-regexp { +([-0-9.+eE]+) +nodes} $info full nod
-puts [format " tri= %s  nod= %s " $tri $nod]
-
-if { $tri != 4176 && $nod != 2857} {
-   puts "Warning:  OCC288 (case 4)  looks like OK, but visual checking is required !!!!"
-} else {
-   puts " OCC288 (case 4) : Faulty"
-}
-
+checktrinfo result -tri !4176 -nod !2857
 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
-