Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / buc60622_2
1 puts "=================================="
2 puts "BUC60622"
3 puts "=================================="
4 puts "There was an infinity of solutions and also c1, c2 and c3 are solutions"
5 puts ""
6 puts "It takes visual check for this BUG"
7 puts "=================================="
8 puts ""
9
10 set len_ch1 2513
11 set len_ch2 837
12 set len_ch3 279
13
14 circle c1 500 1800 500 
15 circle c2 500 1900 400 
16 circle c3 700 1900 200 
17 cirtang result c1 c2 c3 
18
19 set info1 [length $result_1]
20 set info2 [length $result_2]
21 set info3 [length $result_3]
22 regexp {The length result_1 is +([-0-9.+eE]+)} $info1 full len1
23 regexp {The length result_2 is +([-0-9.+eE]+)} $info2 full len2
24 regexp {The length result_3 is +([-0-9.+eE]+)} $info3 full len3
25 set len_int1 [expr int($len1)]
26 set len_int2 [expr int($len2)]
27 set len_int3 [expr int($len3)]
28
29 if { ${len_int1} != ${len_ch1} 
30    || ${len_int2} != ${len_ch2} 
31    || ${len_int3} != ${len_ch3} } {
32    puts "Error : Length is invalid"
33 }