0027109: Modifiy test cases using procedure checklength

[occt.git] / tests / bugs / moddata_3 / bug24633_1

diff --git a/tests/bugs/moddata_3/bug24633_1 b/tests/bugs/moddata_3/bug24633_1
index 9510b56..3ef549a 100644 (file)
--- a/tests/bugs/moddata_3/bug24633_1
+++ b/tests/bugs/moddata_3/bug24633_1
@@ -14,11 +14,7 @@ mksurface s a_2
 pcurve a_2
 
 project prj c s
-
-set prj_length [lindex [length prj] end]
-
-set good_length 7.2662499016218058
-checkreal "prj_length" ${prj_length} ${good_length} 0.01 0.01
+checklength prj -l 7.2662499016218058
 
 #v2d2
 view 1 -2D-  728 20 400 400