view release on metacpan or  search on metacpan

t/900_visual_report.t  view on Meta::CPAN

#!/usr/bin/env perl

use t::lib::Test ':visual';
use t::lib::Slowops;

use Devel::StatProfiler::Report;
use Time::HiRes qw(time);

my $profile_file;
BEGIN { $profile_file = temp_profile_file(); }
my $output_dir = File::Spec->catdir(File::Basename::dirname($profile_file), 'report');

use Devel::StatProfiler -file => $profile_file, -interval => 1000, -source => 'traced_evals';

use Test::Begin;

eval <<'EOT'; # extra __END__ token to check source code fetching
__END__
EOT

for (my $count = 10000; ; $count *= 2) {
    my $start = time;
    note("Trying with $count iterations");
    t::lib::Slowops::foo($count);
    -d '.' for 1..$count;
    last if time - $start >= 0.5;
}

Devel::StatProfiler::write_inc_path;
Devel::StatProfiler::stop_profile();

my $r = Devel::StatProfiler::Report->new(
    slowops    => [qw(ftdir unstack)],
    flamegraph => 1,
    sources    => 1,
);
$r->add_trace_file($profile_file);

$r->output($output_dir);

visual_test($output_dir, ['MAIN PAGE', 'FILE PAGE', 'FLAME GRAPH']);

__END__

=head1 MAIN PAGE

=over 4

=item Subroutine and file list are sorted by exclusive sample count

=item Subroutine list contains opcodes, XSUBs and normal subs

=item Subroutine links work

=over 4

=item C<t::lib::Test::take_sample>

The link points to the sub definition line, detailing number of
samples and list of callers.

=item C<Test::Begin::BEGIN>

The link points to the sub definition line, detailing number of
samples and list of callers.

=item C<Time::HiRes::usleep>

=item C<CORE::ftdir>

=back

=item File links work

=item Links to C<Test/Begin.pm> do not have the C<t/lib> prefix

=item There is an "xs:Time/HiRes.pm" link for C<Time::HiRes> XSUBs

=item "All subs" link works

=item "All files" link works

=back