mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-09 18:50:54 +03:00
a8676008f7
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing Correction of end file in group v3d Small correction of test case
25 lines
694 B
Plaintext
Executable File
25 lines
694 B
Plaintext
Executable File
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
|
|
|
|
circle test_circle 0 0 50
|
|
ellipse test_ellipse 460 0 150 100
|
|
|
|
BUC60843 result test_circle test_ellipse 0.1
|
|
|
|
set info [length $result]
|
|
regexp {The length result is +([-0-9.+eE]+)} $info full len
|
|
|
|
if { ${len} != ${len_ch} } {
|
|
puts "Error : length is invalid"
|
|
}
|