Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / moddata_1 / buc60622_2
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 2513
11set len_ch2 837
12set len_ch3 279
13
14circle c1 500 1800 500
15circle c2 500 1900 400
16circle c3 700 1900 200
17cirtang result c1 c2 c3
18
19set info1 [length $result_1]
20set info2 [length $result_2]
21set info3 [length $result_3]
22regexp {The length result_1 is +([-0-9.+eE]+)} $info1 full len1
23regexp {The length result_2 is +([-0-9.+eE]+)} $info2 full len2
24regexp {The length result_3 is +([-0-9.+eE]+)} $info3 full len3
25set len_int1 [expr int($len1)]
26set len_int2 [expr int($len2)]
27set len_int3 [expr int($len3)]
28
29if { ${len_int1} != ${len_ch1}
30 || ${len_int2} != ${len_ch2}
31 || ${len_int3} != ${len_ch3} } {
32 puts "Error : Length is invalid"
33}