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.
36 lines
855 B
Plaintext
36 lines
855 B
Plaintext
puts "========"
|
|
puts "OCC25820"
|
|
puts "========"
|
|
puts ""
|
|
###################################################################
|
|
# No Intersection Curves between surface of revolution and planes
|
|
###################################################################
|
|
|
|
restore [locate_data_file OCC25820-Revolution_5.brep] b1
|
|
explode b1 f
|
|
copy b1_4 b1
|
|
|
|
restore [locate_data_file OCC25820-Translation_3.brep] b2
|
|
explode b2 f
|
|
copy b2_3 b2
|
|
|
|
smallview
|
|
clear
|
|
display b1
|
|
display b2
|
|
fit
|
|
|
|
set info [bopcurves b1 b2]
|
|
regexp {Tolerance Reached=([-0-9.+eE]+)} $info full bug_info_tol
|
|
regexp {([0-9]+) curve\(s\) found.} $info full bug_info_cur
|
|
|
|
if {$bug_info_tol > 1.0e-7} {
|
|
puts "ERROR: OCC25820 is reproduced. Tolerance is to large ($bug_info_tol)."
|
|
}
|
|
|
|
if {$bug_info_cur != 1} {
|
|
puts "ERROR: OCC25820 is reproduced. Too many curves were found."
|
|
}
|
|
|
|
set only_screen_axo 1
|