0027109: Modifiy test cases using procedure checklength

[occt.git] / tests / bugs / moddata_1 / buc60607_1

diff --git a/tests/bugs/moddata_1/buc60607_1 b/tests/bugs/moddata_1/buc60607_1
index 4e5979d..5c30838 100755 (executable)
--- a/tests/bugs/moddata_1/buc60607_1
+++ b/tests/bugs/moddata_1/buc60607_1
@@ -8,14 +8,5 @@ set len_ch 2513
 point p 1600 300
 line l 0 500 2000 500
 cirtang c p l 400
-
-set info1 [length $c_1]
-set info2 [length $c_2]
-regexp {The length c_1 is +([-0-9.+eE]+)} $info1 full len1
-regexp {The length c_2 is +([-0-9.+eE]+)} $info2 full len2
-set len_int1 [expr int($len1)]
-set len_int2 [expr int($len2)]
-
-if { ${len_int1} != ${len_ch} || ${len_int2} != ${len_ch} } {
-    puts "Error : Length is invalid"
-}
+checklength c_1 -l 2513.2741228718346
+checklength c_2 -l 2513.2741228718346
\ No newline at end of file