Commit | Line | Data |
583a019e |
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 1, sub { $expected eq $results }; |
19 | |
20 | dprofpp('-TF'); |
21 | report 2, 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 3, sub { $expected eq $results }; |
34 | |
35 | dprofpp('-tF'); |
36 | report 4, sub { $expected eq $results }; |