view release on metacpan or  search on metacpan

t/naughty_modules.t  view on Meta::CPAN

#!/usr/local/bin/perl
# as we want to let the naughty modules do their thing we can't use the -w flag
# irritatingly warnings come out on the underlying IO STDERR, rather than
# anything tied to the file handle.
use strict;

use lib 't';
use Test::More tests => 8;
use GagMe;

# Aargh. WTF is test harness doing turning on warnings when I explicity
# don't want them?
$^W = 0;

$SIG{__WARN__} = sub {print STDERR $_[0]};

# Test things misbehave as expected without Acme::use::strict::with::pride

t/whip_them_into_line.t  view on Meta::CPAN

#!/usr/local/bin/perl -w
use strict;

use lib 't';
use Test::More tests => 9;
use GagMe;

$SIG{__WARN__} = sub {print STDERR $_[0]};

use Acme::use::strict::with::pride;

ok(1); # If we made it this far, we're ok.

my $debug = tie *STDERR, 'GagMe';