Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Benchmark.t

Lines Matching refs:iterations
59 print "# $in_threesecs iterations\n";
60 ok ($in_threesecs > 0, "iters returned positive iterations");
63 print "# from the 3 second run estimate $estimate iterations in 1 second...\n";
69 print "# $in_onesec iterations\n";
70 ok ($in_onesec > 0, "iters returned positive iterations");
87 print "# $in_again iterations\n";
88 ok ($in_again > 0, "iters returned positive iterations");
130 my $iterations = 3;
134 my $got = timethis($iterations, sub {++$foo});
137 is ($foo, $iterations, "benchmarked code was run $iterations times");
140 like ($got, qr/^timethis $iterations/, 'default title');
145 $got = timethis($iterations, '++$bar');
148 is ($bar, $iterations, "benchmarked code was run $iterations times");
151 like ($got, qr/^timethis $iterations/, 'default title');
157 $got = timethis($iterations, sub {++$foo}, $title);
160 is ($foo, $iterations, "benchmarked code was run $iterations times");
169 $got = timethis($iterations, sub {++$foo}, $title, 'nop');
172 is ($foo, $iterations, "benchmarked code was run $iterations times");
191     # Remove any warnings about having too few iterations.
200 $got = timethese($iterations, { Foo => sub {++$foo}, Bar => '++$bar',
208 is ($foo, $iterations, "Foo code was run $iterations times");
209 is ($bar, $iterations, "Bar code was run $iterations times");
210 is ($baz, $iterations, "Baz code was run $iterations times");
213 # Remove any warnings about having too few iterations.
216 like ($got, qr/timing $iterations iterations of\s+Bar\W+Baz\W+Foo\W*?\.\.\./s,
280     # Remove any warnings about having too few iterations.
392     # Remove any warnings about having too few iterations.
414     # Remove any warnings about having too few iterations.
435     # Remove any warnings about having too few iterations.
437     like ($got, qr/timing 10 iterations of\s+Bar\W+Foo\W*?\.\.\./s,
455     # Remove any warnings about having too few iterations.