Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / buc60843_2
CommitLineData
a87752f3 1puts "========"
2puts "BUC60843"
3puts "========"
4puts ""
5####################################################################
6## code throws an exception as: .. The exception is:0x5feff388 : StdFail_NotDone: 2d lin = lintan.
7## ThisSolution(); is not right.( the line is not tangent to circle and ellipse )
8####################################################################
9
10pload QAcommands
11
12set len_ch 4.0000000000000001e+100
13
14ellipse test_ellipse_1 0 0 50 50
15ellipse test_ellipse_2 460 0 150 100
16
17BUC60843 result test_ellipse_1 test_ellipse_2 1.0 1.0
18
19set info [length $result]
20regexp {The length result is +([-0-9.+eE]+)} $info full len
21
22if { ${len} != ${len_ch} } {
23 puts "Error : length is invalid"
24}
25