mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +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.
65 lines
1.2 KiB
Plaintext
65 lines
1.2 KiB
Plaintext
puts "==========="
|
|
puts "OCC24650"
|
|
puts "==========="
|
|
puts ""
|
|
##############################################################
|
|
# Wrong intersection curves obtained for a surface of revolution and a plane.
|
|
##############################################################
|
|
|
|
set GoodNbCurv 1
|
|
|
|
restore [locate_data_file bug24650_fz1365.brep] b1
|
|
restore [locate_data_file bug24650_fz2495.brep] b2
|
|
|
|
mksurface sb1 b1
|
|
mksurface sb2 b2
|
|
trimu sb1tu sb1 0.242 0.291
|
|
|
|
clear
|
|
|
|
set N [intersect res sb1tu sb2]
|
|
|
|
set che [whatis res]
|
|
set ind [string first "3d curve" $che]
|
|
if {${ind} >= 0} {
|
|
#Only variable "res" exists
|
|
renamevar 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 {
|
|
display res_$ic
|
|
|
|
bounds res_$ic U1 U2
|
|
|
|
dval U1
|
|
dval U2
|
|
|
|
if {[dval U2-U1] < 1.0e-20} {
|
|
puts "Error: Wrong curve's range!"
|
|
}
|
|
|
|
xdistcs res_$ic sb1tu U1 U2 10 1e-7
|
|
xdistcs res_$ic sb2 U1 U2 10 1e-7
|
|
|
|
incr ic
|
|
}
|
|
}
|
|
|
|
if {[expr {$ic - 1}] == $GoodNbCurv} {
|
|
puts "OK: Curve Number is good!"
|
|
} else {
|
|
puts "Error: Curve Number is bad!"
|
|
}
|
|
|
|
smallview
|
|
fit
|
|
set only_screen_axo 1
|