OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-09-03 14:10:33 +03:00
Code Activity

0025193: Bad Intersection curveobtained by Surface/Surface Intersection Algorithm.

Browse Source 
Test case for issue CR25193

Correction of test case for issue CR25193
This commit is contained in:
jgv
2014-12-11 16:34:23 +03:00
committed by bugmaster
parent fa0f5a5558
commit 68cdb44b0a
5 changed files with 52 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
tests/boolean/bsection/R9
View File

@@ -7,4 +7,4 @@ restore [locate_data_file buc60462b.brep] b
bsection result a b
set length 265.954
set length 261.262

23
tests/bugs/modalg_5/bug25193 Executable file
View File

@@ -0,0 +1,23 @@
puts "================"
puts "OCC25193"
puts "================"
puts ""
#######################################################################
# Bad Intersection curveobtained by Surface/Surface Intersection Algorithm.
#######################################################################
restore [locate_data_file bug25193_s1t.draw] s1
restore [locate_data_file bug25193_s4t.draw] s4
set CurveNumb [intersect i s1 s4 3.6570868343352305e-005]
if { [llength ${CurveNumb}] != 6 } {
puts "Error : Bad Intersection curveobtained by Surface/Surface Intersection Algorithm"
} else {
puts "OK : Good Intersection curveobtained by Surface/Surface Intersection Algorithm"
}
smallview
fit
set only_screen_axo 1

8
tests/bugs/moddata_1/bug13
View File

@@ -29,7 +29,7 @@ set nom 0
if { $j == 1 } {
set info [length res_$j]
regexp {The length res_1 is+ +([-0-9.+eE]+)} $info full ll
set lcheck_1 5.6627572343058755e-05
set lcheck_1 2.310700219185881e-005
if { [expr 1.*abs($lcheck_1 - $ll)/$lcheck_1] > 0.01 } {
puts "Error : The lenght of result shape is $ll"
} else {
@@ -39,7 +39,7 @@ set nom 0
if { $j == 2 } {
set info [length res_$j]
regexp {The length res_2 is+ +([-0-9.+eE]+)} $info full ll
set lcheck_2 5.5763870549528719e-05
set lcheck_2 2.2948490793846324e-005
if { [expr 1.*abs($lcheck_2 - $ll)/$lcheck_2] > 0.01 } {
puts "Error : The lenght of result shape is $ll"
} else {
@@ -51,7 +51,3 @@ set nom 0
if { $nom == 0} {
puts "Error : Intersection was made WRONGLY"
}