t/lib/dprof/test3_v

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