# 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