OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-05-16 10:54:53 +03:00
Code

0023939: Incorrect circle parameter in IntAna

Browse Source 
Adding testing case
This commit is contained in:
vro 2013-06-14 12:14:35 +04:00
parent 799e449136
commit 8405834525
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
tests/bugs/moddata_3/bug23939 Normal file
View File

@ -0,0 +1,28 @@
puts "========================"
puts " CR23939 "
puts "========================"
puts ""
##################################################################
## Incorrect circle parameter in IntAna
##################################################################
circle c1 0 0 10
circle c2 7 0 3
set info1 [2dintanalytical c1 c2]
regexp {parameter on the fist: +([-0-9.+eE]+) parameter on the second: +([-0-9.+eE]+)} ${info1} full p1_1 p1_2
if { ${p1_1} != 0 } {
puts "Bad first parameter p1_1=${p1_1}"
}
if { ${p1_2} != 0 } {
puts "Bad second parameter p1_2=${p1_2}"
}
set info2 [2dintanalytical c2 c1]
regexp {parameter on the fist: +([-0-9.+eE]+) parameter on the second: +([-0-9.+eE]+)} ${info2} full p2_1 p2_2
if { ${p2_1} != 0 } {
puts "Bad first parameter p2_1=${p2_1}"
}
if { ${p2_2} != 0 } {
puts "Bad second parameter p2_2=${p2_2}"
}