Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / buc60622_3
CommitLineData
a87752f3 1puts "=================================="
2puts "BUC60622"
3puts "=================================="
4puts "There was an infinity of solutions and also c1, c2 and c3 are solutions"
5puts ""
6puts "It takes visual check for this BUG"
7puts "=================================="
8puts ""
9
10set len_ch1 1570
11set len_ch2 785
12set len_ch3 785
13set len_ch4 523
14set len_ch5 523
15
16circle c3 500 3000 250
17circle c2 375 3000 125
18circle c1 625 3000 125
19cirtang result c1 c2 c3
20
21set info1 [length $result_1]
22set info2 [length $result_2]
23set info3 [length $result_3]
24set info4 [length $result_4]
25set info5 [length $result_5]
26
27regexp {The length result_1 is +([-0-9.+eE]+)} $info1 full len1
28regexp {The length result_2 is +([-0-9.+eE]+)} $info2 full len2
29regexp {The length result_3 is +([-0-9.+eE]+)} $info3 full len3
30regexp {The length result_4 is +([-0-9.+eE]+)} $info4 full len4
31regexp {The length result_5 is +([-0-9.+eE]+)} $info5 full len5
32
33set len_int1 [expr int($len1)]
34set len_int2 [expr int($len2)]
35set len_int3 [expr int($len3)]
36set len_int4 [expr int($len4)]
37set len_int5 [expr int($len5)]
38
39if { ${len_int1} != ${len_ch1}
40 || ${len_int2} != ${len_ch2}
41 || ${len_int3} != ${len_ch3}
42 || ${len_int4} != ${len_ch4}
43 || ${len_int5} != ${len_ch5} } {
44 puts "Error : Length is invalid"
45}
46