0027126: Create command checktrinfo to verify meshes

[occt.git] / tests / bugs / iges / buc60820_1

diff --git a/tests/bugs/iges/buc60820_1 b/tests/bugs/iges/buc60820_1
index 92b5d95..d71a4cd 100755 (executable)
--- a/tests/bugs/iges/buc60820_1
+++ b/tests/bugs/iges/buc60820_1
@@ -11,12 +11,6 @@ checkshape result r
 tclean result
 incmesh result 0.1
 triangles result
-set info [trinfo result]
-regexp { +([-0-9.+eE]+) +triangles} $info full tri
-regexp { +([-0-9.+eE]+) +nodes} $info full nod
-
-if { $tri <= 0 || $nod <= 0 } {
-    puts "Error : Problems with shading"
-}
 
+checktrinfo result -tri -nod
 checkview -display result -2d -path ${imagedir}/${test_image}.png