1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-05 18:16:23 +03:00
occt/tests/bugs/modalg_2/bug23043
ski a8676008f7 Adding of testing cases from subgroups 937 940 and 941 of CHL group
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
2013-02-08 15:16:15 +04:00

32 lines
843 B
Plaintext
Executable File

puts "========================"
puts "OCC23043"
puts "========================"
puts ""
################################################################################################################
# Wrong results of BRepExtrema_DistShapeShape: non-null minimum distance between intersecting line and cylinder
################################################################################################################
set BugNumber OCC23043
restore [locate_data_file bug23043_croix.brep] a
restore [locate_data_file bug23043_cylindre.brep] b
vdisplay a b
vfit
distmini dd a b
set dist1 [ dval dd ]
set dist2 [ dval dd2 ]
set dist3 [ dval dd3 ]
set dist4 [ dval dd4 ]
puts ""
if { $dist1 == 0 && $dist2 == 0 && $dist3 == 0 && $dist4 == 0 } {
puts "OK ${BugNumber}"
} else {
puts "Faulty ${BugNumber}"
}
set 3dviewer 0