Lines Matching refs:counter
2 # Tests for the counter module.
13 # RCS: @(#) $Id: counter.test,v 1.13 2006/10/09 21:41:40 andreas_kupries Exp $
25 useLocal counter.tcl counter
36 test counter-1.1 {counter::init} {
37 catch {counter::init} err
55 test counter-simple {counter::count} {
56 counter::init simple
57 counter::count simple
58 counter::count simple
59 counter::count simple
60 counter::get simple
62 #puts "simple [time {counter::count simple} 100]"
64 test counter-avg-1.0 {counter::count} {
65 counter::init avg
66 counter::count avg 2.2
67 counter::count avg 3.3
68 counter::count avg 9.8
69 format %3.1f [counter::get avg -avg]
72 test counter-avg-1.1 {counter::count} {
73 counter::init avg
74 counter::get avg -avg
77 test counter-lastn-1.0 {averge over lastn} {
78 counter::init lastn -lastn 4
79 counter::count lastn 2.2
80 counter::count lastn 4.6
81 counter::get lastn -avgn
84 test counter-lastn-1.1 {averge over lastn} {
85 counter::init lastn -lastn 4
86 counter::count lastn 2.2
87 counter::count lastn 3.3
88 counter::count lastn 8.6
89 counter::count lastn 4.1
90 counter::count lastn 6.9
91 counter::count lastn 0.4
92 counter::get lastn -avgn
94 #puts "lastn [time {counter::count lastn 2.4} 100]"
96 test counter-lastn-1.2 {lifetime average} {
97 counter::init lastn -lastn 4
98 counter::count lastn 2.2
99 counter::count lastn 3.3
100 counter::count lastn 8.6
101 counter::count lastn 4.1
102 counter::count lastn 6.9
103 counter::count lastn 0.4
104 counter::get lastn -avg
106 #puts "lastn [time {counter::count lastn 2.4} 100]"
108 test counter-hist-1.0 {basic histogram} {
109 counter::init hist -hist 10
110 counter::count hist 2.2
111 counter::count hist 18.6
112 counter::count hist 14.1
113 counter::count hist 26.9
114 counter::count hist 20.4
115 counter::count hist 23.3
116 counter::count hist 53.3
117 counter::get hist -hist
119 test counter-hist-1.1 {histogram average} {
120 counter::init hist -hist 10
121 counter::count hist 2.2
122 counter::count hist 18.6
123 counter::count hist 14.1
124 counter::count hist 26.9
125 counter::count hist 20.4
126 counter::count hist 23.3
127 counter::count hist 53.3
128 format %13.10f [counter::get hist -avg]
130 #puts "hist [time {counter::count hist 2.4} 100]"
132 test counter-hist2x {counter::count} {
133 counter::init hist -hist2x 10
134 counter::count hist 8
135 counter::count hist 18
136 counter::count hist 28
137 counter::count hist 38
138 counter::count hist 48
139 counter::count hist 58
140 counter::count hist 68
141 counter::count hist 78
142 counter::count hist 178
143 counter::count hist 478
144 counter::get hist -hist
146 #puts "hist2x [time {counter::count hist 50} 100]"
148 test counter-hist10x {counter::count} {
149 counter::init hist -hist10x 10
150 counter::count hist 8
151 counter::count hist 18
152 counter::count hist 28
153 counter::count hist 38
154 counter::count hist 48
155 counter::count hist 58
156 counter::count hist 68
157 counter::count hist 78
158 counter::count hist 178
159 counter::count hist 478
160 counter::count hist 1478
161 counter::count hist 1478000
162 counter::get hist -hist
165 test counter-histlog {counter::count} {
166 counter::init histlog -histlog 1
167 counter::count histlog 0.1
168 counter::count histlog 0.5
169 counter::count histlog 0.9
170 counter::count histlog 1.0
171 counter::count histlog 2
172 counter::count histlog 3
173 counter::count histlog 5
174 counter::count histlog 10
175 counter::count histlog 30
176 counter::count histlog 50
177 counter::count histlog 100
178 counter::count histlog 300
179 counter::count histlog 500
180 counter::count histlog 1000
181 counter::get histlog -hist
184 test counter-timehist {counter::count} {load-dependent} {
185 counter::init hits -timehist 4
187 counter::count hits 2
189 array set info [counter::get hits -all]
192 counter::count hits 4
194 counter::count hits 8
196 foreach {n v} [counter::get hits -hist] {
202 #puts "timehist [time {counter::count hits} 100]"
208 test counter-countNames {counter::names} {
209 counter::init simple
210 counter::init avg
211 counter::init lastn -lastn 4
212 counter::init hist -hist 10
213 counter::init histlog -histlog 1
214 counter::init hits -timehist 4
215 lsort [counter::names]
218 test counter-countExists {counter::exists} {
219 counter::init simple
220 counter::init lastn -lastn 4
221 unset counter::T-lastn
222 list [counter::exists simple] [counter::exists lastn]
225 test counter-countReset {counter::reset} {
226 counter::init simple
227 counter::count simple 1
228 counter::count simple 1
229 counter::count simple 1
230 counter::reset simple
231 counter::get simple