mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +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
22 lines
629 B
Plaintext
Executable File
22 lines
629 B
Plaintext
Executable File
puts "========================"
|
|
puts " OCC324 "
|
|
puts "========================"
|
|
puts ""
|
|
#################################################################
|
|
## The command "intersect" applied to the given arguments "s1" (plane) and "s2" (cylinder) leads
|
|
## to the program hang-up.
|
|
#################################################################
|
|
|
|
restore [locate_data_file OCC324a.draw] s1
|
|
restore [locate_data_file OCC324b.draw] s2
|
|
|
|
if [catch {intersect result s1 s2} catch_result] {
|
|
puts "Faulty OCC324: function INTERSECT works wrongly"
|
|
} else {
|
|
puts "OCC324 OK: function INTERSECT works properly"
|
|
}
|
|
|
|
set 2dviewer 0
|
|
|
|
|