1 package Test::Valgrind::Test::Action;
6 use base qw<Test::Valgrind::Action::Test>;
12 require Test::Valgrind;
14 XSLoader::load('Test::Valgrind', $Test::Valgrind::VERSION);
20 *report = *report_smart;
26 sub new { shift->SUPER::new(extra_tests => $extra_tests) }
29 my ($self, $sess, $report) = @_;
31 if ($report->can('is_leak') and $report->is_leak) {
32 my $data = $report->data;
33 my @trace = map $_->[2] || '?',
34 @{$data->{stack} || []}[0 .. 3];
37 and $trace[1] eq 'tv_leak'
38 and ($trace[2] eq 'Perl_pp_entersub' or $trace[3] eq 'Perl_pp_entersub')
42 my $tb = Test::Builder->new;
43 $tb->diag("The subsequent report was correctly caught:\n" . $report->dump);
44 $tb->is_eq($data->{leakedbytes}, 10_000, '10_000 bytes leaked');
45 $tb->is_eq($data->{leakedblocks}, 1, ' in one block');
50 $self->SUPER::report($sess, $report);