0027126: Create command checktrinfo to verify meshes
[occt.git] / tests / bugs / moddata_2 / fra62476_1
index 521cf9f..9264651 100755 (executable)
@@ -1,4 +1,5 @@
-puts "TODO OCC12345 ALL: Error : here is shading problem"
+puts "TODO OCC12345 ALL: Error: Number of triangles"
+puts "TODO OCC12345 ALL: Error: Number of nodes"
 
 puts "============"
 puts "FRA62476"
@@ -15,12 +16,5 @@ tclean result
 incmesh result .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 != 93 && $nod != 56 } {
-   puts "Error : here is shading problem"
-}
-
+checktrinfo result -tri 93 -nod 56
 checkview -display result -3d -path ${imagedir}/${test_image}.png