From: Father Chrysostomos <sprout@cpan.org>
Date: Wed, 6 Apr 2011 01:00:14 +0000 (-0700)
Subject: Test for [perl #87726] (warning from diagnostics.pm under -w)
X-Git-Tag: accepted/trunk/20130322.191538~3262
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=00680da2f2a66e2338d9c1b1efd49d04598fb77d;p=platform%2Fupstream%2Fperl.git

Test for [perl #87726] (warning from diagnostics.pm under -w)
---

diff --git a/lib/diagnostics.t b/lib/diagnostics.t
index 1dc8ec3..b5db34d 100644
--- a/lib/diagnostics.t
+++ b/lib/diagnostics.t
@@ -1,13 +1,18 @@
-#!./perl
+#!./perl -w
 
 BEGIN {
     chdir '..' if -d '../pod' && -d '../t';
     @INC = 'lib';
 }
 
-use Test::More tests => 7;
+use Test::More tests => 8;
 
-BEGIN { use_ok('diagnostics') }
+BEGIN {
+    my $w;
+    $SIG{__WARN__} = sub { $w = shift };
+    use_ok('diagnostics');
+    is $w, undef, 'no warnings when loading diagnostics.pm';
+}
 
 require base;