OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-05 18:16:23 +03:00
Code Packages Releases Activity

Small correction of test case bugs/modalg_5/bug25416_3 for issue CR25416

Browse Source
This commit is contained in:
mkv 2015-03-26 16:37:24 +03:00 committed by apn
parent 9aa684edf4
commit aa5f963b81
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/bugs/modalg_5/bug25416_3
View File

@ -8,8 +8,8 @@ puts ""
#Check if intersection algorithm produces overlapped curves #Check if intersection algorithm produces overlapped curves
restore [locate_data_file bug25416_s1.brep] s1 restore [locate_data_file bug25416_s1.draw] s1
restore [locate_data_file bug25416_s2.brep] s2 restore [locate_data_file bug25416_s2.draw] s2
set ll [intersect ii s1 s2] set ll [intersect ii s1 s2]
@ -21,13 +21,13 @@ if { [llength $ll] < 1 } {
foreach i $ll { foreach i $ll {
foreach j $ll { foreach j $ll {
if { $i >= $j } continue if { $i >= $j } continue
decho off decho off
mkedge e1 $i mkedge e1 $i
mkedge e2 $j mkedge e2 $j
set coe [checkoverlapedges e1 e2] set coe [checkoverlapedges e1 e2]
decho on decho on
puts "$i<->$j: $coe" puts "$i<->$j: $coe"
if { [regexp "Edges is not overlaped" $coe] != 1 } { if { [regexp "Edges is not overlaped" $coe] != 1 } {
set status 2 set status 2