view release on metacpan or  search on metacpan

t/HashBase.t  view on Meta::CPAN

my $override_warnings = warnings {
    *main::Const::Test::FOO = sub { 0 };
};
ok(@$override_warnings, 'overriding the constant emitted warnings');
like(join('', @$override_warnings), qr/(?:Constant s|S)ubroutine .*FOO redefined/,
    'captured the expected subroutine-redefinition warning');
like(join('', @$override_warnings), qr/Prototype mismatch: sub .*FOO \(\) vs none/,
    'captured the expected prototype-mismatch warning');
ok(!$pkg->FOO, "overrode const sub");
{
local $TODO = "known to fail on $]" if $] le "5.006002";
is($pkg->do_it, 'const', "worked as expected, const was constant");
}

BEGIN {
    $INC{'Object/HashBase/Test/HBase/Wrapped.pm'} = __FILE__;

    package
        main::HBase::Wrapped;
    use DBIx::QuickDB::Util::HashBase qw/foo bar dup/;