t/lib/dprof/test2_v

   1 # perl
   2
   3 use V;
   4
   5 dprofpp( '-T' );
   6 $expected =
   7 qq{main::bar
   8 main::bar
   9 main::baz
  10    main::bar
  11    main::bar
  12    main::bar
  13    main::foo
  14       main::bar
  15 main::foo
  16    main::bar
  17 };
  18 report 5, sub { $expected eq $results };
  19
  20 dprofpp('-TF');
  21 report 6, sub { $expected eq $results };
  22
  23 dprofpp( '-t' );
  24 $expected =
  25 qq{main::bar (2x)
  26 main::baz
  27    main::bar (3x)
  28    main::foo
  29       main::bar
  30 main::foo
  31    main::bar
  32 };
  33 report 7, sub { $expected eq $results };
  34
  35 dprofpp('-tF');
  36 report 8, sub { $expected eq $results };