0027109: Modifiy test cases using procedure checklength

[occt.git] / tests / bugs / moddata_2 / bug7372

diff --git a/tests/bugs/moddata_2/bug7372 b/tests/bugs/moddata_2/bug7372
index 5478ffb..748df5a 100755 (executable)
--- a/tests/bugs/moddata_2/bug7372
+++ b/tests/bugs/moddata_2/bug7372
@@ -8,30 +8,14 @@ puts ""
 # Invalid conversion 2D periodic BSpline curve to Bezier segments
 #######################################################################################
 
-set BugNumber OCC7372
-
 OCC7372
 
-set mistake 0
 set len [llength [directory segment*]]
 if { ${len} != 5 } {
-    puts "Faulty ${BugNumber} : segment number is wrong"
-    set mistake 1
+    puts "Error: segment number is wrong"
 } else {
-    set good_length 73.3203
-    regexp {The length .* is ([-0-9.+eE]+)} [length segment_5] full current_length
-    if { [expr 1.*abs($good_length - $current_length)/$good_length * 100] > 0.1 } {
-       puts "Faulty ${BugNumber} : length is wrong for segment_5"
-       set mistake 1
-    }
+    checklength segment_5 -l 73.3203
     renamevar segment_5 result
 }
 
-if { ${mistake} != 0 } {
-    puts "Faulty ${BugNumber}"
-} else {
-    puts "OK ${BugNumber}"
-}
-
-set 2dviewer 0
-
+set 2dviewer 0
\ No newline at end of file