diff options
Diffstat (limited to 'contrib/perl5/t/lib/dprof/test1_v')
| -rw-r--r-- | contrib/perl5/t/lib/dprof/test1_v | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/contrib/perl5/t/lib/dprof/test1_v b/contrib/perl5/t/lib/dprof/test1_v new file mode 100644 index 0000000..542a503 --- /dev/null +++ b/contrib/perl5/t/lib/dprof/test1_v @@ -0,0 +1,24 @@ +# perl + +use V; + +dprofpp( '-T' ); +$expected = +qq{main::bar +main::baz + main::bar + main::foo + main::bar +main::foo + main::bar +}; +report 1, sub { $expected eq $results }; + +dprofpp('-TF'); +report 2, sub { $expected eq $results }; + +dprofpp( '-t' ); +report 3, sub { $expected eq $results }; + +dprofpp('-tF'); +report 4, sub { $expected eq $results }; |
