0027109: Modifiy test cases using procedure checklength

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

diff --git a/tests/bugs/modalg_5/bug23706_7 b/tests/bugs/modalg_5/bug23706_7
index ae4941f..1b8760e 100755 (executable)
--- a/tests/bugs/modalg_5/bug23706_7
+++ b/tests/bugs/modalg_5/bug23706_7
@@ -10,10 +10,4 @@ pload XSDRAW
 bsplinecurve cc 3 2 0 4 1 4 -1 -1 2 1 0 -1 2 1 0 0 2 1 0 0 2 1
 point pp 0 0 1
 offsetcurve o cc .5 pp
-set info [length o]
-regexp {The length o is+ +([-0-9.+eE]+)} $info full ll
-set ll_check 2.3717833300483151
-
-if { [expr 1.*abs($ll_check - $ll)/$ll_check] > 0.01 } {
-   puts "Error : The lenght of result shape is $ll"
-}
+checklength o -l 2.3717833300483151
\ No newline at end of file