Commit | Line | Data |
---|---|---|
583a019e | 1 | # perl |
2 | ||
3 | use V; | |
4 | ||
5 | dprofpp( '-T' ); | |
6 | $expected = | |
7 | qq{main::bar | |
8 | main::baz | |
9 | main::bar | |
10 | main::foo | |
11 | main::bar | |
12 | main::foo | |
13 | main::bar | |
14 | }; | |
15 | report 1, sub { $expected eq $results }; | |
16 | ||
17 | dprofpp('-TF'); | |
18 | report 2, sub { $expected eq $results }; | |
19 | ||
20 | dprofpp( '-t' ); | |
21 | report 3, sub { $expected eq $results }; | |
22 | ||
23 | dprofpp('-tF'); | |
24 | report 4, sub { $expected eq $results }; |