use strict;
use lib '.';
use Test::More tests => 2;

local $^W = 0; # Module::Build enables global warnings -- we need them off

#--------------------------------------------------------------------------#
# Harness to capture warnings
#--------------------------------------------------------------------------#

my $warning = '';

# store warnings
local $SIG{__WARN__} = sub {
    $warning = shift;
};

# return and clear
sub check_warning {
    my $val = $warning;
    $warning = '';
    return $val;
}

#--------------------------------------------------------------------------#
# Test warning propogation
#--------------------------------------------------------------------------#

# Catch warning
require t::Sample::SWC;
like( check_warning(), qr/^We can carp/, "ToolSet::SWC carping works" );

eval "use t::Sample::SWCError; ";

like(
    "$@",
    qr/^Global symbol "\$var" requires explicit package name/,
    "ToolSet::SWC sets strict"
);