]> git.vpit.fr Git - perl/modules/Test-Valgrind.git/blobdiff - t/20-bad.t
Enable the 'diag' option in tests
[perl/modules/Test-Valgrind.git] / t / 20-bad.t
index fbf33bf2c922dc73d538232f0e1e5866cbb5e059..f36e2f5985b12060a2d7b4aaa937ea6781f10609 100644 (file)
@@ -6,19 +6,26 @@ use warnings;
 use Test::More;
 
 use lib 't/lib';
-eval 'use Test::Valgrind action => q[Test::Valgrind::Test::Action]';
+
+eval {
+ require Test::Valgrind;
+ Test::Valgrind->import(
+  action => 'Test::Valgrind::Test::Action',
+ );
+};
 if ($@) {
  diag $@;
- plan skip_all => 'Test::Valgrind is required to run test your distribution with valgrind';
+ plan skip_all
+        => 'Test::Valgrind is required to test your distribution with valgrind';
 }
 
 eval {
  require XSLoader;
  XSLoader::load('Test::Valgrind', $Test::Valgrind::VERSION);
 };
-
-unless ($@) {
- Test::Valgrind::leak();
-} else {
+if ($@) {
  diag $@;
+} else {
+ diag "leaking some bytes!";
+ Test::Valgrind::leak();
 }