use strict;
use warnings;

use Test::More tests => 2;
use Acme::Emoticarp;

my $warning;

do {
    local $SIG{__WARN__} = sub {
        ( $warning ) = @_;
    };

    ಠ_ಠ 'I disapprove.';
};

like $warning, qr/I disapprove[.]/;

eval {
    o_O 'Uh oh!';
};
like $@, qr/Uh oh!/;