0026622: Tests - Avoid using dlog and decho commands in test scripts

[occt.git] / tests / bugs / modalg_5 / bug25509_4

diff --git a/tests/bugs/modalg_5/bug25509_4 b/tests/bugs/modalg_5/bug25509_4
index 37a6bdf..192cb17 100755 (executable)
--- a/tests/bugs/modalg_5/bug25509_4
+++ b/tests/bugs/modalg_5/bug25509_4
@@ -1,3 +1,4 @@
+puts "REQUIRED All: Faulty shapes in variables faulty_1 to faulty_1"
 puts "============"
 puts "OCC25509"
 puts "============"
@@ -21,14 +22,6 @@ shape result so
 add b1_1 result
 add e2 result
 
-decho off
-set info [checkshape result]
-decho on
-
-if { [regexp "Faulty shapes in variables faulty_1" ${info}] != 1 } {
-   puts "Error : There are no mistakes by checkshape-command"
-} else {
-   puts "OK : There are mistakes by checkshape-command"
-}
+checkshape result
 
 set 2dviewer 1