0027126: Create command checktrinfo to verify meshes

[occt.git] / tests / bugs / stlvrml / bug25279

diff --git a/tests/bugs/stlvrml/bug25279 b/tests/bugs/stlvrml/bug25279
index 02cf7ca..0edcd42 100755 (executable)
--- a/tests/bugs/stlvrml/bug25279
+++ b/tests/bugs/stlvrml/bug25279
@@ -21,21 +21,12 @@ set mode 2
 
 writevrml res ${aFile} ${version} ${mode}
 
-set TrinfoAfter [trinfo res]
-set Log [loadvrml test ${aFile}]
-
-set status 1
+checktrinfo res -ref "${TrinfoBefore}"
 
-if { $TrinfoBefore != $TrinfoAfter } {
-  set status 0 
-}
+set Log [loadvrml test ${aFile}]
 
 if { [string length $Log] != 0 } {
-  set status 0 
-}
-
-if {$status == 1} {
-  puts "OK ${BugNumber}"
-} else {
   puts "Faulty ${BugNumber}"
+} else {
+  puts "OK ${BugNumber}"
 }