mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +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
52 lines
1.1 KiB
Plaintext
Executable File
52 lines
1.1 KiB
Plaintext
Executable File
puts "============"
|
|
puts "OCC9303"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# Intersection curve surface doesn't take account of bounds of the surface
|
|
######################################################
|
|
|
|
set BugNumber OCC9303
|
|
|
|
cone c 0 0 0 30 0
|
|
trimv nc c 20 30
|
|
|
|
smallview +X+Z
|
|
donly nc
|
|
fit
|
|
|
|
line ll 0 0 10 1 0 0
|
|
|
|
decho off
|
|
if [catch {intersect res ll nc} result] {
|
|
set mistake 1
|
|
} else {
|
|
set mistake 0
|
|
}
|
|
decho on
|
|
|
|
if { $mistake == 0} {
|
|
puts "${BugNumber} OK : intersection was finished"
|
|
puts ""
|
|
set nom 0
|
|
set j 1
|
|
repeat 2 {
|
|
set che [whatis res_$j]
|
|
set err [lindex $che [expr [llength $che] - 1]]
|
|
if { $err != "point"} {
|
|
break
|
|
} else {
|
|
set nom [expr $nom + 1]
|
|
}
|
|
incr j
|
|
}
|
|
if { $nom != 0 } {
|
|
puts [format "Faulty ${BugNumber}: Intersection was made WRONGLY: %s points" $nom]
|
|
} else {
|
|
puts [format "${BugNumber} OK : Intersection command works properly: %s points" $nom]
|
|
}
|
|
} else {
|
|
puts "Faulty ${BugNumber} : intersection does not finished"
|
|
}
|
|
|