Adding test cases from grid chl
[occt.git] / tests / bugs / moddata / buc60622_3
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 1570
11 set len_ch2 785
12 set len_ch3 785
13 set len_ch4 523
14 set len_ch5 523
15
16 circle c3 500 3000 250
17 circle c2 375 3000 125
18 circle c1 625 3000 125
19 cirtang result c1 c2 c3
20
21 set info1 [length $result_1]
22 set info2 [length $result_2]
23 set info3 [length $result_3]
24 set info4 [length $result_4]
25 set info5 [length $result_5]
26
27 regexp {The length result_1 is +([-0-9.+eE]+)} $info1 full len1
28 regexp {The length result_2 is +([-0-9.+eE]+)} $info2 full len2
29 regexp {The length result_3 is +([-0-9.+eE]+)} $info3 full len3
30 regexp {The length result_4 is +([-0-9.+eE]+)} $info4 full len4
31 regexp {The length result_5 is +([-0-9.+eE]+)} $info5 full len5
32
33 set len_int1 [expr int($len1)]
34 set len_int2 [expr int($len2)]
35 set len_int3 [expr int($len3)]
36 set len_int4 [expr int($len4)]
37 set len_int5 [expr int($len5)]
38
39 if { ${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