1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
# ========================================================================
# t/02_skip.t - test skip functionality in Benchmark::Timer
# Andrew Ho (andrew@zeuscat.com)
#
# Test the skip functionality in Benchmark::Timer, where you can provide
# a parameter named skip to the constructor to skip that many trials
# for all timings. This is useful for throwing away the first n of m
# trials where m is large.
#
# This script is intended to be run as a target of Test::Harness.
#
# Last modified April 20, 2001
# ========================================================================
use strict;
use Test::More tests => 5;
use Benchmark::Timer;
# ------------------------------------------------------------------------
# Test that a Benchmark::Timer created with a zero skip functions the
# same as a Benchmark::Timer created without a skip at all.
my $t1 = Benchmark::Timer->new;
my $t2 = Benchmark::Timer->new(skip => 0);
$t1->reset;
$t2->reset;
for(1 .. 10) {
$t1->start('tag1');
$t2->start('tag2');
$t1->stop;
$t2->stop;
}
my @r1 = $t1->data('tag1');
my @r2 = $t2->data('tag2');
# 1
is(scalar @r1, scalar @r2, 'Data size two tags');
# ------------------------------------------------------------------------
# Skip 1 trial, get n - 1 trials total.
my $n = 10;
my $t = Benchmark::Timer->new(skip => 1);
for(1 .. $n) {
$t->start('tag');
$t->stop;
}
my @r = $t->data('tag');
# 2
is(scalar @r, $n-1, 'Data size skip 1');
# ------------------------------------------------------------------------
# Skip n - 1 trials, get 1 trial total.
$n = 10;
undef $t; $t = Benchmark::Timer->new(skip => $n - 1);
for(1 .. $n) {
$t->start('tag');
$t->stop;
}
@r = $t->data('tag');
# 3
is(scalar @r, 1, 'Data size 1 trial only');
# ------------------------------------------------------------------------
# Skip n trials, get no trials at all.
$n = 10;
undef $t; $t = Benchmark::Timer->new(skip => $n);
for(1 .. $n) {
$t->start('tag');
$t->stop;
}
@r = $t->data('tag');
# 4
is(scalar @r, 0, 'Data size no trials');
# ------------------------------------------------------------------------
# Skip n + 1 trials, also get no trials at all.
$n = 10;
undef $t; $t = Benchmark::Timer->new(skip => $n + 1);
for(1 .. $n) {
$t->start('tag');
$t->stop;
}
@r = $t->data('tag');
# 5
is(scalar @r, 0, 'Data size no trials (n+1)');
# ========================================================================
__END__
|
