[occt.git] / tests / bugs / moddata_1 / buc60843_2

puts "========"
puts "BUC60843"
puts "========"
puts ""
####################################################################
## code throws an exception as:  .. The exception is:0x5feff388 : StdFail_NotDone: 2d lin = lintan.
## ThisSolution(); is not right.( the line is not tangent to circle and ellipse )
####################################################################

pload QAcommands

set len_ch 4.0000000000000001e+100

ellipse test_ellipse_1 0 0 50 50
ellipse test_ellipse_2 460 0 150 100

BUC60843 result test_ellipse_1 test_ellipse_2 1.0 1.0

set info [length $result]
regexp {The length result is +([-0-9.+eE]+)} $info full len

if { ${len} != ${len_ch} } {
    puts "Error : length is invalid"
}
Commit	Line	Data
a87752f3	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	ellipse test_ellipse_1 0 0 50 50
	15	ellipse test_ellipse_2 460 0 150 100
	16
	17	BUC60843 result test_ellipse_1 test_ellipse_2 1.0 1.0
	18
	19	set info [length $result]
	20	regexp {The length result is +([-0-9.+eE]+)} $info full len
	21
	22	if { ${len} != ${len_ch} } {
	23	puts "Error : length is invalid"
	24	}
	25