Test run time exceptions

[perl/modules/Test-Valgrind.git] / t / 12-good-run-exception.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';