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.
60 lines
1.4 KiB
Plaintext
Executable File
60 lines
1.4 KiB
Plaintext
Executable File
puts "TODO OCC25929 ALL: Error: Tolerance is too big!"
|
|
|
|
puts "TODO OCC21564 Linux: Error : T=0.464646\tD=0.000326627"
|
|
puts "TODO OCC21564 Linux: Error : T=0.464646\tD=0.00032747"
|
|
|
|
puts "TODO OCC21564 Windows: Error : T=0.464646\tD=0.000326671"
|
|
puts "TODO OCC21564 Windows: Error : T=0.464646\tD=0.000327516"
|
|
|
|
puts "========="
|
|
puts "CR24915"
|
|
puts "========="
|
|
puts ""
|
|
###############################
|
|
## Wrong intersection curves between two cylinders
|
|
###############################
|
|
|
|
puts "##############################"
|
|
puts "#!!!Searh \"Attention\" keyword on this web-page for additinal checking!!!"
|
|
puts "##############################"
|
|
|
|
restore [locate_data_file bug24915_ft2.brep] b1
|
|
restore [locate_data_file bug24915_ft3.brep] b2
|
|
|
|
# 1. topology
|
|
bclearobjects
|
|
bcleartools
|
|
baddobjects b1 b2
|
|
bfillds
|
|
bbuild r
|
|
checkshape r
|
|
|
|
# 2. geometry
|
|
set MaxTol 5.0e-7
|
|
set log [bopcurves b1 b2]
|
|
|
|
if { ! [regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv] } {
|
|
puts "Error: Cannot find tolerance value in output of bopcurve command"
|
|
}
|
|
|
|
if {${Toler} > ${MaxTol}} {
|
|
puts "Error: Tolerance is too big!"
|
|
}
|
|
|
|
mksurface s1 b1
|
|
mksurface s2 b2
|
|
|
|
set Tolerance 2.0e-5
|
|
set WarnTol 1.0e-7
|
|
|
|
for {set i 1} {$i <= ${NbCurv}} {incr i} {
|
|
bounds c_$i U1 U2
|
|
xdistcs c_$i s1 U1 U2 100 $Tolerance $WarnTol
|
|
xdistcs c_$i s2 U1 U2 100 $Tolerance $WarnTol
|
|
}
|
|
|
|
smallview
|
|
donly b2 c_2
|
|
fit
|
|
set only_screen_axo 1
|