mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +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
34 lines
759 B
Plaintext
Executable File
34 lines
759 B
Plaintext
Executable File
pload QAcommands
|
|
|
|
puts "============"
|
|
puts "OCC17424"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# IntCurvesFace_ShapeIntersector does not find intersection point
|
|
######################################################
|
|
|
|
set BugNumber OCC17424
|
|
|
|
restore [locate_data_file OCC17424.brep] a
|
|
|
|
set X_Pnt 86.960439048069262
|
|
set Y_Pnt 1028.2863798310484
|
|
set Z_Pnt -266.58526583558000
|
|
|
|
set X_Dir 0.25881904510252074
|
|
set Y_Dir 0
|
|
set Z_Dir -0.96592582628906831
|
|
|
|
set PInf 0.
|
|
|
|
set aStatusList [OCC17424 a ${X_Pnt} ${Y_Pnt} ${Z_Pnt} ${X_Dir} ${Y_Dir} ${Z_Dir} ${PInf}]
|
|
regexp {OCC17424 status = +([-0-9.+eE]+)} ${aStatusList} full aStatus
|
|
|
|
if { ${aStatus} != 0 } {
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
puts "OK ${BugNumber}"
|
|
}
|
|
|