From: Vincent Pit <perl@profvince.com>
Date: Fri, 30 Oct 2015 15:33:56 +0000 (-0200)
Subject: Test run time exceptions
X-Git-Tag: v1.15~3
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=acdd3b78b5efedcd0b980acb20e3137354325325;p=perl%2Fmodules%2FTest-Valgrind.git

Test run time exceptions
---

diff --git a/MANIFEST b/MANIFEST
index 6915c64..8229881 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -32,6 +32,7 @@ samples/xml-output-protocol4.txt
 samples/xml-output.txt
 t/00-load.t
 t/10-good.t
+t/12-good-run-exception.t
 t/20-bad.t
 t/70-session.t
 t/80-suppressions.t
diff --git a/t/12-good-run-exception.t b/t/12-good-run-exception.t
new file mode 100644
index 0000000..22e6d01
--- /dev/null
+++ b/t/12-good-run-exception.t
@@ -0,0 +1,20 @@
+#!perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+use lib 't/lib';
+
+eval {
+ require Test::Valgrind;
+ Test::Valgrind->import(diag => 1);
+};
+if ($@) {
+ diag $@;
+ plan skip_all
+        => 'Test::Valgrind is required to test your distribution with valgrind';
+}
+
+die 'dummy run-time exception, should not cause the test to fail';