bf4b864fc144659e4c7e6d4f8fb6af85eec693ea
[occt.git] / tests / bugs / moddata_2 / bug22802
1 pload QAcommands
2
3 puts "==========="
4 puts "OCC22802"
5 puts "==========="
6 puts ""
7 #######################################################################
8 #  The memory alloccated with an excess is not released
9 #######################################################################
10
11 set BugNumber OCC22802
12
13 set log [bcarray]
14
15 #
16 #state before release the unused memory
17 #Length: 10
18 #FactLength: 100000
19 #BlockLength: 100000
20 #
21 #state after release the unused memory
22 #Length: 10
23 #FactLength: 10
24 #BlockLength: 100000
25 #
26
27 set linelist [split $log "\n"]
28
29 set il 0
30 set ifl 0
31 set ibl 0
32
33 set xl_0 0
34 set xl_1 0
35 set xfl_0 0
36 set xfl_1 0
37 set xbl_0 0
38 set xbl_1 0
39
40 foreach line $linelist {
41     if { [regexp {^Length: ([-0-9.+eE]+)} $line full xl_$il] } { incr il }
42     if { [regexp {FactLength: ([-0-9.+eE]+)} $line full xfl_$ifl] } { incr ifl }
43     if { [regexp {BlockLength: ([-0-9.+eE]+)} $line full xbl_$ibl] } { incr ibl }
44 }
45
46 set status 0
47 if { ${xl_0} != 10} {
48   incr status
49 }
50 if { ${xfl_0} != 100000} {
51   incr status
52 }
53 if { ${xbl_0} != 100000} {
54   incr status
55 }
56 if { ${xl_1} != 10} {
57   incr status
58 }
59 if { ${xfl_1} != 10} {
60   incr status
61 }
62 if { ${xbl_1} != 100000} {
63   incr status
64 }
65
66 if { ${status} != 0} {
67   puts "Faulty ${BugNumber}"
68 } else {
69   puts "${BugNumber}  OK"
70 }
71