]> git.vpit.fr Git - perl/modules/Test-Valgrind.git/commitdiff
Enable the 'diag' option in tests
authorVincent Pit <perl@profvince.com>
Fri, 30 Oct 2015 15:30:20 +0000 (13:30 -0200)
committerVincent Pit <perl@profvince.com>
Fri, 30 Oct 2015 15:30:20 +0000 (13:30 -0200)
This will make it easier to debug test failures (like if the child dies).

t/10-good.t
t/20-bad.t
t/lib/Test/Valgrind/Test/Action.pm

index 3552113d8e590eada9c0d4cb34a805665d8c05b3..0d5696759d2c944fe892aff9dc40e9f60c84c960 100644 (file)
@@ -9,7 +9,7 @@ use lib 't/lib';
 
 eval {
  require Test::Valgrind;
- Test::Valgrind->import;
+ Test::Valgrind->import(diag => 1);
 };
 if ($@) {
  diag $@;
@@ -24,4 +24,4 @@ if ($@) {
 }
 
 plan tests => 1;
-fail 'should not be seen';
+fail 'dummy test in the child, should not interfere with the actual TAP stream';
index 490b779254f59ce56777c6f7a593b8dc03c739e6..f36e2f5985b12060a2d7b4aaa937ea6781f10609 100644 (file)
@@ -9,7 +9,9 @@ use lib 't/lib';
 
 eval {
  require Test::Valgrind;
- Test::Valgrind->import(action => 'Test::Valgrind::Test::Action');
+ Test::Valgrind->import(
+  action => 'Test::Valgrind::Test::Action',
+ );
 };
 if ($@) {
  diag $@;
@@ -24,5 +26,6 @@ eval {
 if ($@) {
  diag $@;
 } else {
+ diag "leaking some bytes!";
  Test::Valgrind::leak();
 }
index c56eb038f553ee8c4d402009d6d734c7b575494d..07ffde59fbab891d8a7770b488c810a8f76205f3 100644 (file)
@@ -23,7 +23,14 @@ BEGIN {
 
 use Test::Builder;
 
-sub new { shift->SUPER::new(extra_tests => $extra_tests) }
+sub new {
+ my $class = shift;
+
+ $class->SUPER::new(
+  diag        => 1,
+  extra_tests => $extra_tests,
+ );
+}
 
 my @filtered_reports;