Lines Matching refs:is
40 is ($foo, 5, "benchmarked code was run 5 times");
43 is ($bar, 5, "benchmarked code was run 5 times");
53 # The default is three.
75 ok ($actual < $delta, "is $in_onesec within $delta of estimate ($estimate)");
76 print "# $in_onesec is between " . ($delta / 2) .
101 is ($auto, $default, 'timestr ($diff, "auto") matches timestr ($diff)');
110 is (timestr ($diff, 'none'), '', "none supresses output");
119 pass ('"auto" is "noc"');
121 is ($auto, $all, '"auto" isn\'t "noc", so should be eq to "all"');
137 is ($foo, $iterations, "benchmarked code was run $iterations times");
141 like ($got, $Default_Pattern, 'default format is all or noc');
148 is ($bar, $iterations, "benchmarked code was run $iterations times");
152 like ($got, $Default_Pattern, 'default format is all or noc');
160 is ($foo, $iterations, "benchmarked code was run $iterations times");
164 like ($got, $Default_Pattern, 'default format is all or noc');
166 # default is auto, which is all or noc. nop can never match the default
172 is ($foo, $iterations, "benchmarked code was run $iterations times");
195 is ($got, '', "format 'none' should suppress output");
203 is(ref ($got), 'HASH', "timethese should return a hashref");
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");
220 like ($got, qr/\bBar\b.*\bBaz\b.*\bFoo\b/s, 'check output is in sorted order');
239 is( $@, '', q{no strict leakage in name => 'code'} );
251 is( $@, '', q{no strict leakage in name => sub { code }} );
270 is(ref ($results), 'HASH', "timethese should return a hashref");
282 is ($got =~ tr/ \t\n//c, 0, "format 'none' should suppress output");
296 &= is ($slowc, $slowr, "left col tag should be top row tag");
298 &= is ($fastc, $fastr, "right col tag should be bottom row tag");
302 &= is ($slowslow, $fastfast, "slow v slow should be same as fast v fast");
307 # Slow is expressed as iters per second.
311 # Fast is expressed as iters per second.
329 pass ("slow rate is less than fast rate");
341 &= is ($slowrate, $fastrate,
343 # In OpenBSD the $slowfast is sometimes a really, really, really
376 is (scalar @$title, 4, "Four entries in title row");
377 is (scalar @$row1, 4, "Four entries in first row");
378 is (scalar @$row2, 4, "Four entries in second row");
379 is (shift @$title, '', "First entry of output graph should be ''");
458 is ($got, '', "format 'none' should suppress output");
459 is (ref $chart, 'ARRAY', "output should be an array ref");
462 is (ref $chart->[0], 'ARRAY', "output should be an array of arrays");
471 is ($foo, 0, "Foo code was not run");
472 is ($bar, 0, "Bar code was not run");
475 ok ($got !~ /\.\.\./s, 'check that there is no title');
485 is ($foo, 0, "Foo code was not run");
486 is ($bar, 0, "Bar code was not run");
489 is ($got, '', "'none' should suppress all output");
490 is (ref $chart, 'ARRAY', "output should be an array ref");
493 is (ref $chart->[0], 'ARRAY', "output should be an array of arrays");
503 is ($bar, 5, "benchmarked code was run 5 times");
504 is ($debug->read(), '', "There was no debug output");
513 is ($bar, 5, "benchmarked code was run 5 times");
514 is ($out->read(), '', "There was no STDOUT output with debug enabled");
521 is ($bar, 5, "benchmarked code was run 5 times");
522 is ($debug->read(), '', "There was no debug output debug disabled");
528 # The way benchmark is written We can't actually check whehter the cache is
535 is ($bar, 5, "benchmarked code was run 5 times");
539 is ($bar, 10, "benchmarked code was run 10 times");
564 is( $@, $usage{cmpthese}, "cmpthese usage: $name" );
574 is( $@, $usage{timethese}, "timethese usage: $name" );
581 is( $@, $usage, "$func usage: no args" );
586 is( $@, $usage{$func}, "$func usage: with args" );