0027126: Create command checktrinfo to verify meshes

[occt.git] / tests / bugs / moddata_3 / bug25179

diff --git a/tests/bugs/moddata_3/bug25179 b/tests/bugs/moddata_3/bug25179
index 7ca2f92..b8aff0b 100755 (executable)
--- a/tests/bugs/moddata_3/bug25179
+++ b/tests/bugs/moddata_3/bug25179
@@ -13,22 +13,7 @@ restore [locate_data_file bug25179_nurbs-with-partial-seam.brep] result
 tclean result
 incmesh result 0.1
 
-set trinfo_s [trinfo result]
-regexp {([0-9]+) triangles} ${trinfo_s} str nbtri_s
-regexp {([0-9]+) nodes} ${trinfo_s} str nbnod_s
-regexp {deflection ([0-9.+e-]+)} ${trinfo_s} str defl_s
-
-if { ${nbtri_s} == 0 } {
-   puts "Error: shape contains 0 triangles"
-}
-
-if { ${nbnod_s} == 0 } {
-   puts "Error: shape contains 0 nodes"
-}
-
-if { ${defl_s} == 0 } {
-   puts "Error: deflection is 0"
-}
+checktrinfo result -tri -nod -defl
 
 if [catch { tricheck result } ] {
   puts "Error : Problem of build a mesh on specific geometry"