0027126: Create command checktrinfo to verify meshes

[occt.git] / tests / bugs / mesh / bug23105

diff --git a/tests/bugs/mesh/bug23105 b/tests/bugs/mesh/bug23105
index f93ece9..6855405 100755 (executable)
--- a/tests/bugs/mesh/bug23105
+++ b/tests/bugs/mesh/bug23105
@@ -10,16 +10,4 @@ restore [locate_data_file bug23105_f372.brep] result
 checkshape result
 
 incmesh result 0.1
-set trinfo_s [trinfo result]
-regexp {([0-9]+) triangles} $trinfo_s str nbtri_s
-regexp {deflection ([0-9.+e-]+)} $trinfo_s str defl_s
-
-# check deflections
-if { $defl_s > 0.1 } {
-    puts "Error: too big deflection ($defl_s > 0.1)"
-}
-
-# compare number of triangles
-if { $nbtri_s == 0 } {
-    puts "Error: shape contains 0 triangles"
-}
+checktrinfo result -tri -max_defl 0.1