Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug253
1 puts "========"
2 puts "OCC253"
3 puts "========"
4
5 ######################################################
6 ## Exception while segment operation on periodic BSpline curve.
7 ## More over it seems that command segment in Draw doesnot work.
8 ######################################################
9
10 restore [locate_data_file OCC253.draw] result
11 ############### checkshape c1 # is not a topological shape
12
13 smallview -2D-
14
15 #store dump of initial curve 
16 set init_dump [dump result]
17
18 set ufirst 0.500000000000006
19 set ulast 1.00000000015925
20 catch { segment result $ufirst $ulast }
21
22 #compare dump of initial curve and dump of result one
23 set result_dump [dump result]
24 if { $init_dump == $result_dump} {
25     puts "Faulty OCC253: command segment does NOT do anything"
26
27
28 #retrieve amount of knots of result curve from dump
29 regexp { +Degree +[-0-9.+eE]+, +[-0-9.+eE]+ +Poles, +([-0-9.+eE]+) +KnotsPoles +:} $result_dump full KnotsNumber
30 #create string to be found in result dump
31 set trueLastKnot "$KnotsNumber : 1.00000000015925 "
32
33 #verify parametrization of result curve
34 if { [regexp "1 : 0.500000000000006 " $result_dump] && [regexp $trueLastKnot $result_dump]} {
35     puts " OCC253 is OK: command segment works properly" 
36 } else {
37     puts "Faulty OCC253: parametrization of result curve is wrong" 
38 }
39
40 2dfit
41 set 2dviewer 0
42
43