xref: /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/dprof/test1_v (revision 0:68f95e015346) 
1# perl
2
3use V;
4
5dprofpp( '-T' );
6$expected =
7qq{main::bar
8main::baz
9   main::bar
10   main::foo
11      main::bar
12main::foo
13   main::bar
14};
15report 1, sub { $expected eq $results };
16
17dprofpp('-TF');
18report 2, sub { $expected eq $results };
19
20dprofpp( '-t' );
21report 3, sub { $expected eq $results };
22
23dprofpp('-tF');
24report 4, sub { $expected eq $results };
25