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.
57 lines
1.7 KiB
Plaintext
57 lines
1.7 KiB
Plaintext
puts "============"
|
|
puts "0026029: Visualization - Poor performance of connected objects"
|
|
puts "============"
|
|
puts ""
|
|
###########################################################
|
|
# Time spent on computation of large number of connected objects
|
|
# should grow linearly with the number of objects
|
|
###########################################################
|
|
|
|
pload MODELING VISUALIZATION
|
|
psphere s 0.5
|
|
tclean s
|
|
incmesh s 0.1
|
|
trinfo s
|
|
|
|
vinit View1
|
|
vclear
|
|
vaxo
|
|
#vcaps -vbo 0
|
|
vsetdispmode 1
|
|
vdefaults -defl 1.0 -autoTriang off
|
|
vdisplay s
|
|
|
|
set aNb1 100
|
|
|
|
# display 100x100 connected instances of single presentation
|
|
puts "Creating [expr $aNb1*$aNb1] instances..."
|
|
set t [time {for {set i 0} {$i < $aNb1} {incr i} {for {set j 0} {$j < $aNb1} {incr j} {vconnectto s_${i}_${j} ${i} ${j} 0 s -noupdate}}}]
|
|
set d1 [lindex $t 0]
|
|
puts "Done in $d1 microseconds!\n"
|
|
vclear
|
|
|
|
set aNb2 200
|
|
|
|
# display 200x200 connected instances of single presentation
|
|
puts "Creating [expr $aNb2*$aNb2] instances..."
|
|
set t [time {for {set i 0} {$i < $aNb2} {incr i} {for {set j 0} {$j < $aNb2} {incr j} {vconnectto s_${i}_${j} ${i} ${j} 0 s -noupdate}}}]
|
|
set d2 [lindex $t 0]
|
|
puts "Done in $d2 microseconds!\n"
|
|
vclear
|
|
|
|
# compare two CPU times: the ratio should be quasi-linear
|
|
set expected_ratio [expr double($aNb2 * $aNb2) / double($aNb1 * $aNb1)]
|
|
set actual_ratio [expr double($d2) / double($d1)]
|
|
puts "Comparing CPU time for the two test cases..."
|
|
puts "============================================="
|
|
puts "Expected ratio: $expected_ratio"
|
|
puts "Actual ratio: $actual_ratio"
|
|
puts "============================================="
|
|
|
|
# Allow 50% deviation from linear growth
|
|
if {[expr $actual_ratio / $expected_ratio] > 1.5} {
|
|
puts "Error: non-linear time growth detected!"
|
|
} else {
|
|
puts "Test passed!"
|
|
}
|