f751596e |
1 | puts "============" |
2 | puts "OCC24623_4" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | puts "Visualization - improve selection mechanism" |
7 | # tests memory leaks in creation of selection primitives for connected |
8 | # interactive objects: checks that there is no "dead links" to reference |
9 | # interactives after its clearing |
10 | ####################################################################### |
11 | |
12 | puts "" |
13 | pload MODELING VISUALIZATION |
14 | psphere s 0.5 |
15 | tclean s |
16 | incmesh s 0.001 |
17 | trinfo s |
18 | vinit |
19 | vclear |
20 | |
21 | set aMemInit [meminfo h] |
22 | set anIterNb 100 |
23 | |
24 | for {set anIterCount 0} {$anIterCount < $anIterNb} {incr anIterCount} { |
25 | set aNb 11 |
26 | |
27 | vconnectto i_1 0 0 0 s -nodisplay |
28 | vloadselection i_1 |
29 | for {set i 2} {$i < $aNb} {incr i} { vconnectto i_${i} ${i} 0 0 i_1 -nodisplay; vloadselection i_${i} } |
30 | vclear |
31 | } |
32 | |
33 | set aMemClear [meminfo h] |
34 | |
35 | puts "Initial memory : [expr $aMemInit / (1024 * 1024)] MiB" |
36 | puts "Clearing : [expr $aMemClear / (1024 * 1024)] MiB" |
37 | |
38 | set aRatio [expr $aMemClear / double($aMemInit)] |
39 | |
40 | # check if the memory difference is greater than 20% |
41 | if {[expr $aRatio > 1.2]} { |
42 | puts "Error : TEST FAILED" |
43 | } |