mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51: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
690 B
Plaintext
Executable File
36 lines
690 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC6862"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Tool for checking arguments of Boolean Operations
|
|
#######################################################################
|
|
|
|
set BugNumber OCC6862
|
|
|
|
# face verification
|
|
box b1 10 20 10
|
|
box b2 20 10 10
|
|
explode b1 f
|
|
explode b2 f
|
|
bcut r1 b1_6 b2_6
|
|
bcommon r2 b1_6 b2_6
|
|
explode r1 w
|
|
explode r2 w
|
|
mksurface gs b1_6
|
|
mkface ff gs
|
|
add r1_1 ff
|
|
add r2_1 ff
|
|
|
|
set resstr [bopargcheck ff b2_6 -F /RTVEIP]
|
|
|
|
if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} {
|
|
puts "OK ${BugNumber}"
|
|
} else {
|
|
puts "Faulty ${BugNumber}"
|
|
}
|
|
|
|
set 2dviewer 0
|
|
|
|
|