From f9f91368fd716bd684d89013b92b6995f29b24d5 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 8 Jul 2013 17:36:06 -0400
Subject: restore the behavior of suppressing warnings in loaded modules

the only thing we care about is getting $VERSION out of the modules, we
don't actually want to use them, so the warnings are just noise.
---
 t/lib/warn/Foo/Conflicts.pm | 10 ++++++++++
 t/lib/warn/Foo/Thing.pm     |  9 +++++++++
 t/warn.t                    | 16 ++++++++++++++++
 3 files changed, 35 insertions(+)
 create mode 100644 t/lib/warn/Foo/Conflicts.pm
 create mode 100644 t/lib/warn/Foo/Thing.pm
 create mode 100644 t/warn.t

(limited to 't')

diff --git a/t/lib/warn/Foo/Conflicts.pm b/t/lib/warn/Foo/Conflicts.pm
new file mode 100644
index 0000000..e55ead3
--- /dev/null
+++ b/t/lib/warn/Foo/Conflicts.pm
@@ -0,0 +1,10 @@
+package Foo::Conflicts;
+use strict;
+use warnings;
+
+use Dist::CheckConflicts
+    -conflicts => {
+        'Foo::Thing' => 0.01,
+    };
+
+1;
diff --git a/t/lib/warn/Foo/Thing.pm b/t/lib/warn/Foo/Thing.pm
new file mode 100644
index 0000000..8dfa0b4
--- /dev/null
+++ b/t/lib/warn/Foo/Thing.pm
@@ -0,0 +1,9 @@
+package Foo::Thing;
+use strict;
+use warnings;
+
+our $VERSION = 0.02;
+
+warn "Loading Foo::Thing";
+
+1;
diff --git a/t/warn.t b/t/warn.t
new file mode 100644
index 0000000..1058eb9
--- /dev/null
+++ b/t/warn.t
@@ -0,0 +1,16 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+use lib 't/lib/warn';
+
+{
+    use_ok("Foo::Conflicts");
+
+    my $warning = '';
+    local $SIG{__WARN__} = sub { $warning .= $_[0] };
+    my $conflicts = Foo::Conflicts->calculate_conflicts;
+    is($warning, '', "we don't see warnings from loaded modules");
+}
+
+done_testing;
-- 
cgit v1.2.3-54-g00ecf