Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / buc60618
1 puts "=================================="
2 puts "BUC60618"
3 puts "=================================="
4 puts "There was a problem filter of solutions. Several solutions were skipped."
5 puts ""
6 puts "It takes visual check for this BUG"
7 puts "=================================="
8 puts ""
9 set len_ch1 3568
10 set len_ch2 9964
11 set len_ch3 2082
12 set len_ch4 32696
13 set len_ch5 1681
14 set len_ch6 3097
15 set len_ch7 1545
16 set len_ch8 772
17
18 circle c1 0 0 100 
19 circle c2 500 -400 300 
20 circle c3 300 200 200 
21 cirtang result c1 c2 c3
22
23 set info1 [length $result_1]
24 set info2 [length $result_2]
25 set info3 [length $result_3]
26 set info4 [length $result_4]
27 set info5 [length $result_5]
28 set info6 [length $result_6]
29 set info7 [length $result_7]
30 set info8 [length $result_8]
31
32 regexp {The length result_1 is +([-0-9.+eE]+)} $info1 full len1
33 regexp {The length result_2 is +([-0-9.+eE]+)} $info2 full len2
34 regexp {The length result_3 is +([-0-9.+eE]+)} $info3 full len3
35 regexp {The length result_4 is +([-0-9.+eE]+)} $info4 full len4
36 regexp {The length result_5 is +([-0-9.+eE]+)} $info5 full len5
37 regexp {The length result_6 is +([-0-9.+eE]+)} $info6 full len6
38 regexp {The length result_7 is +([-0-9.+eE]+)} $info7 full len7
39 regexp {The length result_8 is +([-0-9.+eE]+)} $info8 full len8
40
41 set len_int1 [expr int($len1)]
42 set len_int2 [expr int($len2)]
43 set len_int3 [expr int($len3)]
44 set len_int4 [expr int($len4)]
45 set len_int5 [expr int($len5)]
46 set len_int6 [expr int($len6)]
47 set len_int7 [expr int($len7)]
48 set len_int8 [expr int($len8)]
49
50 if { ${len_int1} != ${len_ch1} 
51    || ${len_int2} != ${len_ch2}
52    || ${len_int3} != ${len_ch3}
53    || ${len_int4} != ${len_ch4}
54    || ${len_int5} != ${len_ch5}
55    || ${len_int6} != ${len_ch6}
56    || ${len_int7} != ${len_ch7}
57    || ${len_int8} != ${len_ch8} } {
58    puts "Error : Length is invalid"
59 }