use strict;
use lib 't/lib';
use Test::More;

if ( $] >= 5.009 ) {
    plan tests => 5;
}
else {
    plan skip_all => 'user-pragma tests require Perl 5.010';
}

my %pragmas;

my $in_effect = eval "use t::ToolSet::Pragmas; return bogopragma::in_effect()";

is( $@, '', "no error in eval" );
ok( $in_effect, "bogus pragma set" );

$in_effect = eval
  "use t::ToolSet::Pragmas; use t::ToolSet::NoPragmas; return bogopragma::in_effect()";

is( $@, '', "no error in eval" );
ok( !$in_effect, "bogus pragma not set" );

eval "use t::Sample::NoStrictRefs";
like(
    $@,
    qr/Global symbol "\$pi" requires explicit package name/,
    "use_pragma + no_pragma"
);