[perl #89656] [PATCH] Test for #87726 (warnings when loading diagnostics under -w)

On Sun May 01 14:38:26 2011, sprout wrote:
> From 59d2cfa8cd55d36e6e8aa0880c72b9bb4f5c1a9c Mon Sep 17 00:00:00 2001
> From: Father Chrysostomos <sprout@cpan.org>
> Date: Tue, 5 Apr 2011 18:00:14 -0700
> 
> Test for [perl #87726] (warning from diagnostics.pm under -w)
> 
> diff --git a/lib/diagnostics.t b/lib/diagnostics.t
> index dae2754..428dc13 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 => 6;
> +use Test::More tests => 7;
>  
> -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;
>  

Thank me. :-)
Applied as 00680da2.

• [perl #89656] [PATCH] Test for #87726 (warnings when loading diagnostics under -w) by Father Chrysostomos via RT