Test run time exceptions

diff --git a/MANIFEST b/MANIFEST
index 6915c64c6c1888606f43271fc463df044a28d8ee..82298818b85e481cf3681f0de932d886f1ebc9fa 100644 (file)
--- 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 (file)
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';