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.
71 lines
1.6 KiB
Plaintext
Executable File
71 lines
1.6 KiB
Plaintext
Executable File
puts "============"
|
|
puts "OCC22864"
|
|
puts "============"
|
|
puts ""
|
|
##############################################################################################
|
|
# The algorithm BiTgte_Blend obtains instable results
|
|
##############################################################################################
|
|
|
|
set BugNumber OCC22864
|
|
|
|
restore [locate_data_file bug22864_face1.brep] f1
|
|
restore [locate_data_file bug22864_face2.brep] f2
|
|
|
|
shape aShape C
|
|
add f1 aShape
|
|
add f2 aShape
|
|
|
|
set status 0
|
|
set Numbers 11
|
|
|
|
for {set i 0} {$i < ${Numbers}} {incr i} {
|
|
puts "i=$i"
|
|
rollingball result aShape 15 @ f1 f2
|
|
|
|
checknbshapes result -vertex 2 -edge 3 -wire 1 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 8
|
|
|
|
set aFile $imagedir/${test_image}.brep
|
|
puts "aFile=${aFile}"
|
|
file delete ${aFile}
|
|
if { [file exists ${aFile}] } {
|
|
puts "There is old ${aFile} file; Error"
|
|
set status 1
|
|
}
|
|
|
|
save result ${aFile}
|
|
catch {exec chmod 777 ${aFile}}
|
|
if { ![file exists ${aFile}] } {
|
|
puts "There is not ${aFile} file; save command: Error"
|
|
set status 1
|
|
}
|
|
|
|
set fp [open ${aFile} "r"]
|
|
set Log [read -nonewline ${fp}]
|
|
close ${fp}
|
|
#
|
|
if {$i == 0} {
|
|
set Standard_Log ${Log}
|
|
} else {
|
|
set info_result [string compare ${Log} ${Standard_Log}]
|
|
if {${info_result} == 0} {
|
|
# Log == Standard_Log
|
|
puts "Log == Standard_Log"
|
|
} else {
|
|
# Log != Standard_Log
|
|
set status 1
|
|
puts "Log != Standard_Log"
|
|
}
|
|
}
|
|
}
|
|
|
|
# Resume
|
|
puts ""
|
|
if {${status} == 0} {
|
|
puts "OK ${BugNumber}"
|
|
} else {
|
|
puts "Faulty ${BugNumber}"
|
|
}
|
|
|
|
set square 8464.91
|
|
set 2dviewer 0
|