mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-06-12 18:29:35 +08: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.
61 lines
1.1 KiB
Plaintext
Executable File
61 lines
1.1 KiB
Plaintext
Executable File
puts "REQUIRED All: \\*\\*\\* Error on Record"
|
|
puts "============"
|
|
puts "OCC23153"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# BRepMesh can't apply a mesh for a face of attached shape
|
|
#######################################################################
|
|
|
|
pload XDE
|
|
set BugNumber OCC23153
|
|
|
|
set TheFileName OCC23153-long_furrowed_shape.stp
|
|
|
|
stepread [locate_data_file $TheFileName] a *
|
|
|
|
tpcompound result
|
|
|
|
set square 14684.4
|
|
checknbshapes result -vertex 1152 -edge 1735 -wire 635 -face 581 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 4106
|
|
vinit
|
|
vsetdispmode 1
|
|
vdisplay result
|
|
vtop
|
|
vfit
|
|
|
|
set status 0
|
|
set x1 223
|
|
set y1 195
|
|
|
|
if { "[vreadpixel $x1 $y1 rgb name]" == "BLACK" } {
|
|
set status 1
|
|
puts "Faulty Color1"
|
|
}
|
|
|
|
set x2 224
|
|
set y2 240
|
|
if { "[vreadpixel $x2 $y2 rgb name]" == "BLACK" } {
|
|
set status 1
|
|
puts "Faulty Color2"
|
|
}
|
|
|
|
set x3 223
|
|
set y3 266
|
|
if { "[vreadpixel $x3 $y3 rgb name]" == "BLACK" } {
|
|
set status 1
|
|
puts "Faulty Color3"
|
|
}
|
|
|
|
# Resume
|
|
puts ""
|
|
if { ${status} == 0 } {
|
|
puts "OK ${BugNumber}"
|
|
} else {
|
|
puts "Faulty ${BugNumber}"
|
|
}
|
|
|
|
set only_screen 1
|
|
|
|
|