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.
47 lines
918 B
Plaintext
Executable File
47 lines
918 B
Plaintext
Executable File
puts "TODO OCC11111 ALL: Faulty OCC3896"
|
|
|
|
puts "============"
|
|
puts "OCC3896"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# BRepCheck_Analyzer does not detect faulty faces in solid shape.
|
|
######################################################
|
|
|
|
#
|
|
# a_13 face is FORVARD (faulty), but checkshape command does not detect it
|
|
#
|
|
|
|
set BugNumber OCC3896
|
|
|
|
restore [locate_data_file OCC3896-pipe.brep] a
|
|
|
|
explode a f
|
|
compound a_1 a_13 result
|
|
|
|
explode a_1 e
|
|
explode a_13 e
|
|
|
|
smallview
|
|
donly result
|
|
fit
|
|
r
|
|
|
|
normals result 200
|
|
|
|
puts "Normal of a_13 face is red (FORWARD)"
|
|
|
|
for {set i 1} {$i <= 14} {incr i} {
|
|
whatis a_$i
|
|
}
|
|
|
|
set info_result [checkshape result]
|
|
|
|
if {[regexp {Faulty} $info_result] } {
|
|
puts "OK ${BugNumber} : checkshape detect faulty faces in solid shape"
|
|
} else {
|
|
puts "Faulty ${BugNumber} : checkshape does not detect faulty faces in solid shape"
|
|
}
|
|
|
|
set 2dviewer 0
|