diff options
| author | David Mitchell <davem@iabyn.com> | 2011-03-26 20:12:57 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2011-03-26 23:54:08 +0000 |
| commit | ca55f23289d5d73ca175891901d155fa326fd7e8 (patch) | |
| tree | 587e37a476a82200e6e1f976ff5c58ac00b25f1e /lib/Benchmark.t | |
| parent | e76f5e873f85fc85f1c899914749a50feed6f801 (diff) | |
| download | perl-ca55f23289d5d73ca175891901d155fa326fd7e8.tar.gz | |
Benchmark.t: note line# of check_graph_consistency
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.
Diffstat (limited to 'lib/Benchmark.t')
| -rw-r--r-- | lib/Benchmark.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Benchmark.t b/lib/Benchmark.t index 973d84797e..c29ed1ae88 100644 --- 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"); |