0026742: Update test cases for using checknbshapes procedure instead of global variables

[occt.git] / tests / bugs / modalg_2 / bug4717_1

diff --git a/tests/bugs/modalg_2/bug4717_1 b/tests/bugs/modalg_2/bug4717_1
index 77f6b34..aaf2bba 100755 (executable)
--- a/tests/bugs/modalg_2/bug4717_1
+++ b/tests/bugs/modalg_2/bug4717_1
@@ -1,4 +1,4 @@
-puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
+puts "TODO OCC12345 ALL: Error :  is WRONG because number of"
 
 puts "============"
 puts "OCC4717"
@@ -30,14 +30,5 @@ bopfuse result
 
 set square 680565
 
-set nb_v_good 11
-set nb_e_good 16
-set nb_w_good 8
-set nb_f_good 7
-set nb_sh_good 1
-set nb_sol_good 1
-set nb_compsol_good 0
-set nb_compound_good 1
-set nb_shape_good 45
-
+checknbshapes result -vertex 11 -edge 16 -wire 8 -face 7 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 45
 set 2dviewer 0