0027126: Create command checktrinfo to verify meshes

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

diff --git a/tests/bugs/vis/bug288_1 b/tests/bugs/vis/bug288_1
index 266cfe2..59ca1ea 100755 (executable)
--- a/tests/bugs/vis/bug288_1
+++ b/tests/bugs/vis/bug288_1
@@ -1,11 +1,10 @@
-
 puts "========================"
 puts " OCC288 "
 puts "(case 1)"
 puts "========================"
 
 restore [locate_data_file shading_058.brep] result 
-puts [checkshape result]
+checkshape result
 
 tclean result
 vinit
@@ -15,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 != 5148 && $nod != 3042} {
-   puts " Warning:  OCC288 (case 1)  looks like OK, but visual checking is required!!"
-} else {
-   puts " OCC288 (case 1) : Faulty"
-}
-
-set only_screen 1
-
+checktrinfo result -tri !5148 -nod !3042
+checkview -screenshot -3d -path ${imagedir}/${test_image}.png