Guard against exceptions thrown by Module::Metadata

[perl/modules/Acme-CPANAuthors-You-re_using.git] / t / 11-naughty-version.t

diff --git a/t/11-naughty-version.t b/t/11-naughty-version.t
new file mode 100644 (file)
index 0000000..1cf4385
--- /dev/null
+++ b/t/11-naughty-version.t
@@ -0,0 +1,31 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => 2;
+
+use lib 't/lib';
+
+use Acme::CPANAuthors;
+
+local @INC = grep $_ ne '.', @INC;
+
+our $test_loaded;
+local $test_loaded = 0;
+
+my $err = do {
+ local $SIG{__WARN__} = sub {
+  my $msg = join "\n", @_;
+  if ($msg =~ /cabbage/) {
+   die "$msg\n";
+  } else {
+   diag $msg;
+  }
+ };
+ eval { Acme::CPANAuthors->new("You're_using") };
+ $@;
+};
+
+is $test_loaded, 1,  'naughty module was actually loaded';
+is $err,         '', 'naughty module did not make us croak';