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