mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
e05c25c123
Implementation of capturing of output to standard streams in DRAW (see command dlog) is revised to avoid problems with command "test" executing long test scripts: 1. Method OSD_File::Capture() is removed: on Windows it was allocating a C file descriptor for a file opened using WinAPI, and never released that descriptor (once allocated, it cannot be released separately from WinAPI file handle). Direct calls to dup/dup2 are used instead. 2. In Draw_Window.cxx the standard Tcl channels are initialized manually using corrected version of Tcl internal function. This works around a problem with Tcl channels on Windows being bound to OS device handle owned by the system which can get invalidated as result of calls to dup2() (used to capture output to standard streams). 3. Temporary file for capturing is opened once and used to store whole log, thus the need to collect log in the string stream in memory is avoided 4. Possible errors of dup() and dup2() are checked and reported Test demo draw dlog is added Off-topic changes: - Test demo draw getsource is corrected for VS2017 which generates file name in lowercase - Field myFaceBounds is initialized in constructor of the class BRepAlgo_NormalProjection to avoid undefined behavior - Test bugs modalg_5 bug24012 is corrected to use command nproject instead of custom one, and to check propertes of the resulting shape
40 lines
1.0 KiB
Plaintext
40 lines
1.0 KiB
Plaintext
# Check functionality of dlog command (capturing of stdout)
|
|
|
|
pload MODELING
|
|
|
|
# activate logging
|
|
set status [dlog status]
|
|
dlog on
|
|
|
|
# check that log does not fail at many executions
|
|
# note that this makes sense only if we do not run by test command with
|
|
# dlog already active, in which case puts is redefined
|
|
if { $status == off } {
|
|
for {set i 0} {$i < 10000} {incr i} { box b 1 1 1 }
|
|
dlog off
|
|
puts "Try puts to check that channel is not broken"
|
|
dlog on
|
|
}
|
|
|
|
# check that logging works as expected
|
|
dlog reset
|
|
box b 1 1 1
|
|
explode b f
|
|
if { $status == off } {
|
|
# this will get to log if executed using "test" command instead of testgrid, as it redefines puts
|
|
puts "output of puts -- should not be in the log"
|
|
}
|
|
dlog add "output of dlog add"
|
|
set log [dlog get]
|
|
set expected "box b 1 1 1 \nexplode b f \nb_1 b_2 b_3 b_4 b_5 b_6\noutput of dlog add\n"
|
|
if { $log != $expected } {
|
|
puts "Error: Logged text does not match expected"
|
|
puts "Value: \"$log\""
|
|
puts "Expected: \"$expected\""
|
|
}
|
|
|
|
# return original state of logging
|
|
dlog $status
|
|
|
|
puts "TEST COMPLETED"
|