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
61 lines
1.4 KiB
Plaintext
Executable File
61 lines
1.4 KiB
Plaintext
Executable File
puts "============"
|
|
puts "OCC22296"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# The algorithm BRepSweep_MakeRevol produce non-licit toroidal based face.
|
|
# Appendix to the SALOME bug: IPAL22181
|
|
#######################################################################
|
|
|
|
set BugNumber OCC22296
|
|
|
|
restore [locate_data_file bug22296_ring.brep] b1
|
|
revol r b1 0.6 3 0 0 0 1 -90
|
|
|
|
set E_Length [explode r f]
|
|
|
|
if { ${E_Length} < 6} {
|
|
puts "Bad format of explode draw-command"
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
|
|
copy r_2 f
|
|
|
|
set good_umin 0
|
|
set good_umax 6.28319
|
|
set good_vmin 0
|
|
set good_vmax 6.28319
|
|
|
|
set xlist [xbounds f]
|
|
set umin [lindex $xlist 0]
|
|
set umax [lindex $xlist 1]
|
|
set vmin [lindex $xlist 2]
|
|
set vmax [lindex $xlist 3]
|
|
|
|
set bad_bound 0
|
|
if {${umin} < ${good_umin}} {
|
|
puts "umin: ${umin} is wrong"
|
|
set bad_bound[expr ${bad_bound} + 1]
|
|
}
|
|
if {${umax} > ${good_umax}} {
|
|
puts "umax: ${umax} is wrong"
|
|
set bad_bound [expr ${bad_bound} + 10]
|
|
}
|
|
if {${vmin} < ${good_vmin}} {
|
|
puts "vmin: ${vmin} is wrong"
|
|
set bad_bound [expr ${bad_bound} + 100]
|
|
}
|
|
if {${vmax} > ${good_vmax}} {
|
|
puts "vmax: ${vmax} is wrong"
|
|
set bad_bound [expr ${bad_bound} + 1000]
|
|
}
|
|
|
|
if {${bad_bound} > 0 } {
|
|
puts "${BugNumber}: Faulty"
|
|
} else {
|
|
puts "OK ${BugNumber}"
|
|
}
|
|
|
|
}
|
|
|