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