0027109: Modifiy test cases using procedure checklength
[occt.git] / tests / bugs / moddata_1 / buc60843_1
1 puts "========"
2 puts "BUC60843"
3 puts "========"
4 puts ""
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
10 pload QAcommands
11
12 set len_ch 4.0000000000000001e+100
13
14 circle test_circle 0 0 50
15 ellipse test_ellipse 460 0 150 100
16
17 BUC60843 result test_circle test_ellipse 0.1
18 checklength result -l 4.0000000000000001e+100