This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
e76f5e8
)
Benchmark.t: note line# of check_graph_consistency
author
David Mitchell
<davem@iabyn.com>
Sat, 26 Mar 2011 20:12:57 +0000
(20:12 +0000)
committer
David Mitchell
<davem@iabyn.com>
Sat, 26 Mar 2011 23:54:08 +0000
(23:54 +0000)
This function is called 6 times, each each call puts out about
15 tests, with the same set of descriptions, so output a note
at the start of each call showing where we're called from.
lib/Benchmark.t
patch
|
blob
|
blame
|
history
diff --git
a/lib/Benchmark.t
b/lib/Benchmark.t
index
973d847
..
c29ed1a
100644
(file)
--- a/
lib/Benchmark.t
+++ b/
lib/Benchmark.t
@@
-303,6
+303,7
@@
sub check_graph_consistency {
$slowr, $slowratet, $slowslow, $slowfastt,
$fastr, $fastratet, $fastslowt, $fastfast)
= @_;
+ note("calling check_graph_consistency from line " . (caller(1))[2]);
my $all_passed = 1;
$all_passed
&= is ($slowc, $slowr, "left col tag should be top row tag");