view release on metacpan or  search on metacpan

t/AnyLoader.t  view on Meta::CPAN

        }
    }
    return $ok;
}

# Change this to your # of ok() calls + 1
BEGIN { $Total_tests = 7 }

use AnyLoader;
use FindBin qw($Bin);
use lib ($Bin);

ok( Text::Soundex::soundex('schwern') eq 'S650' );
ok( Testing::AnyLoader::some_func() == 23 );
ok( Testing::AnyLoader::some_other_func() == 42 );

# Test to make sure DESTROY is not messed with.
eval {
    local $SIG{__WARN__} = sub { die @_ };

    my $obj = bless [], "Foo";