mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
6d3685029f
Added possibility to define patterns that must be present in the test log, so that test is considered OK only if all these patterns are found. New REQUIRED statement is introduced for that, documented in dox/dev_guides/tests/tests.md. Removed all uses of decho and dlog commands, added REQUIRED where necessary. Command xdistcs is modified to output to Tcl instead of cout, and extended to report errors and warnings if distances are greater than tolerance (directly, instead of complex post-processing on Tcl level). DEBUG mode for TODOs was removed (we should have no deviations in Debug mode). Corrected indentation in DrawResources/TestCommands.tcl HTML log will now highlight TODO statement causing IMPROVEMENT status, or REQUIRED statement causing FAIL, by corresponding color.
71 lines
1.4 KiB
Plaintext
Executable File
71 lines
1.4 KiB
Plaintext
Executable File
puts "========"
|
|
puts "OCC25782"
|
|
puts "========"
|
|
puts ""
|
|
######################################################
|
|
# The result of intersection between two cylinders is incorrect
|
|
# Algorithm must find one curves only
|
|
######################################################
|
|
|
|
set GoodNbCurv 1
|
|
|
|
restore [locate_data_file bug25782_fz19.brep] b1
|
|
restore [locate_data_file bug25782_fz53.brep] b2
|
|
|
|
mksurface s1 b1
|
|
mksurface s2 b2
|
|
|
|
intersect res s1 s2
|
|
|
|
set che [whatis res]
|
|
set ind [string first "3d curve" $che]
|
|
if {${ind} >= 0} {
|
|
#Only variable "res" exists
|
|
|
|
copy res res_1
|
|
}
|
|
|
|
set ic 1
|
|
set AllowRepeate 1
|
|
while { $AllowRepeate != 0 } {
|
|
set che [whatis res_$ic]
|
|
set ind [string first "3d curve" $che]
|
|
if {${ind} < 0} {
|
|
set AllowRepeate 0
|
|
} else {
|
|
xdistcs res_$ic s1 0 100 10 1e-7
|
|
xdistcs res_$ic s2 0 100 10 1e-7
|
|
|
|
incr ic
|
|
}
|
|
}
|
|
|
|
if {[expr {$ic - 1}] == $GoodNbCurv} {
|
|
puts "OK: Curve Number is good!"
|
|
} else {
|
|
puts "Error: Curves Number is bad!"
|
|
}
|
|
|
|
set log [bopcurves b1 b2]
|
|
|
|
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
|
|
set MaxTol 1.e-7
|
|
if {${Toler} > ${MaxTol}} {
|
|
puts "Error: Tolerance is too big!"
|
|
}
|
|
|
|
if {$NbCurv != $GoodNbCurv} {
|
|
puts "Error: Curves Number is bad!"
|
|
}
|
|
|
|
for {set i 1} {$i <= ${NbCurv}} {incr i} {
|
|
bounds c_$i U1 U2
|
|
|
|
if {[dval U2-U1] < 1.0e-9} {
|
|
puts "Error: Wrong curve's range!"
|
|
}
|
|
|
|
xdistcs c_$i s1 U1 U2 10 1e-7
|
|
xdistcs c_$i s2 U1 U2 10 1e-7
|
|
}
|