projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
move DProf things around to where they are supposed to be
[p5sagit/p5-mst-13.2.git]
/
t
/
lib
/
dprof
/
test2_v
1
# perl
2
3
use V;
4
5
dprofpp( '-T' );
6
$expected =
7
qq{main::bar
8
main::bar
9
main::baz
10
main::bar
11
main::bar
12
main::bar
13
main::foo
14
main::bar
15
main::foo
16
main::bar
17
};
18
report 5, sub { $expected eq $results };
19
20
dprofpp('-TF');
21
report 6, sub { $expected eq $results };
22
23
dprofpp( '-t' );
24
$expected =
25
qq{main::bar (2x)
26
main::baz
27
main::bar (3x)
28
main::foo
29
main::bar
30
main::foo
31
main::bar
32
};
33
report 7, sub { $expected eq $results };
34
35
dprofpp('-tF');
36
report 8, sub { $expected eq $results };