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