mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +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.
50 lines
1.3 KiB
Plaintext
50 lines
1.3 KiB
Plaintext
puts "REQUIRED All: Not connected mesh inside face"
|
|
puts "=========="
|
|
puts "OCC25307"
|
|
puts "=========="
|
|
puts ""
|
|
##################################################################
|
|
# Problems resulted from re-triangulation
|
|
##################################################################
|
|
|
|
restore [locate_data_file OCC22095-selectNoTbb.brep] res
|
|
tclean res
|
|
vinit
|
|
vsetdispmode 1
|
|
vdisplay res
|
|
vfit
|
|
|
|
set info1 [tricheck res]
|
|
set pattern "Free_links +(\[0-9\]+) +Cross_face_errors +(\[0-9\]+) +Async_edges +(\[0-9\]+) +Free_nodes +(\[0-9\]+)"
|
|
regexp "${pattern}" $info1 full freelinks1 crossfaces1 asyncedges1 freenodes1
|
|
|
|
vclear
|
|
vdisplay res
|
|
vsetdispmode 1
|
|
vfit
|
|
|
|
set info2 [tricheck res]
|
|
regexp "${pattern}" $info2 full freelinks2 crossfaces2 asyncedges2 freenodes2
|
|
if { $freelinks1 != $freelinks2 } {
|
|
puts "Error: Free links are not equal"
|
|
} else {
|
|
puts "OK: Free links are equal"
|
|
}
|
|
if { $crossfaces1 != $crossfaces2 } {
|
|
puts "Error: Cross faces are not equal"
|
|
} else {
|
|
puts "OK: Cross faces are equal"
|
|
}
|
|
if { $asyncedges1 != $asyncedges2 } {
|
|
puts "Error: Async edges are not equal"
|
|
} else {
|
|
puts "OK: Async edges are equal"
|
|
}
|
|
if { $freenodes1 != $freenodes2 } {
|
|
puts "Error: Free nodes are not equal"
|
|
} else {
|
|
puts "OK: Free nodes are not equal"
|
|
}
|
|
|
|
set only_screen 1
|