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.
85 lines
2.2 KiB
Plaintext
85 lines
2.2 KiB
Plaintext
puts "================"
|
|
puts "OCC25416"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################
|
|
# Wrong section curve
|
|
#######################################################################
|
|
|
|
puts "##############################"
|
|
puts "#!!!Search \"Attention\" keyword on this web-page for additional checking!!!"
|
|
puts "##############################"
|
|
puts ""
|
|
puts ""
|
|
|
|
# bopcurves command
|
|
|
|
restore [locate_data_file bug25416_f3.brep] f1
|
|
restore [locate_data_file bug25416_f4.brep] f2
|
|
|
|
mksurface s1 f1
|
|
mksurface s2 f2
|
|
|
|
#Trim according to "xbounds f1"
|
|
trim s1 s1 -55.44 150.554 -98.1087 79.1766
|
|
|
|
mkface ff1 s1
|
|
donly ff1 f2
|
|
|
|
#############################
|
|
set log [bopcurves ff1 f2]
|
|
#############################
|
|
|
|
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
|
|
|
|
#This value must be equal to the analogical value in bug25292_31 and bug25292_32 of "bugs modalg_5" testgrid.
|
|
set MaxTol 1.e-7
|
|
|
|
#This value must be equal to the analogical value in bug25292_31 and bug25292_32 of "bugs modalg_5" testgrid.
|
|
set GoodNbCurv 2
|
|
|
|
if {${Toler} > ${MaxTol}} {
|
|
puts "Error: Tolerance is too big!"
|
|
}
|
|
if {${NbCurv} != ${GoodNbCurv}} {
|
|
puts "Error: Curve Number is bad!"
|
|
}
|
|
|
|
#-------------
|
|
|
|
for {set i 1} {$i <= ${NbCurv}} {incr i} {
|
|
set log [dump c_$i]
|
|
set dumptrimres [regexp {Trimmed curve\nParameters : +([-0-9.+eE]+) +([-0-9.+eE]+)} ${log} full U1 U2]
|
|
|
|
if {${dumptrimres} == 0} {
|
|
regexp {Degree +([-0-9.+eE]+), +([-0-9.+eE]+) Poles, +([-0-9.+eE]+)} ${log} full Degree Poles KnotsPoles
|
|
|
|
puts "Degree=${Degree}"
|
|
puts "Poles=${Poles}"
|
|
puts "KnotsPoles=${KnotsPoles}"
|
|
puts ""
|
|
|
|
set Knot 1
|
|
set exp_string "Knots :\n\n +${Knot} : +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+)"
|
|
regexp ${exp_string} ${log} full U1 Mult1
|
|
|
|
set Knot ${KnotsPoles}
|
|
set exp_string " +${Knot} : +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+)"
|
|
regexp ${exp_string} ${log} full U2 Mult2
|
|
}
|
|
|
|
puts "U1=${U1}"
|
|
puts "U2=${U2}"
|
|
|
|
if {[expr {$U2 - $U1}] < 1.0e-20} {
|
|
puts "Error: Wrong curve's range!"
|
|
}
|
|
|
|
xdistcs c_$i s1 ${U1} ${U2} 10 1e-7
|
|
xdistcs c_$i s2 ${U1} ${U2} 10 1e-7
|
|
}
|
|
|
|
smallview
|
|
fit
|
|
set only_screen_axo 1
|