view release on metacpan or  search on metacpan

t/test-lib-slaughter-packages.t  view on Meta::CPAN

#
#  Find the location of the transport modules on disk.
#
my $dir = undef;

$dir = "./lib/Slaughter/Packages"  if ( -d "./lib/Slaughter/Packages" );
$dir = "../lib/Slaughter/Packages" if ( -d "../lib/Slaughter/Packages" );

ok( -d $dir, "We found the packages directory." );


#
#  Look for each module
#
foreach my $name ( sort( glob( $dir . "/*.pm" ) ) )
{
    if ( $name =~ /(.*)\/(.*)\.pm/ )
    {

        #
        #  Name of the module implementation file.
        #
        my $name = $2;

        #
        # Load the module
        #
        use_ok("Slaughter::Packages::$name");
        require_ok("Slaughter::Packages::$name");

        #
        # Create a new instance of the module.
        #
        my $module = "Slaughter::Packages::$name";
        my $handle = $module->new();

        #
        #  Is the module the type we wish to be?
        #
        ok( $handle, "Calling the constructor succeeded." );
        isa_ok( $handle, $module );

        #
        # Test that our required methods are present
        #
        foreach my $method (
                  qw! isInstalled recognised removePackage installPackage new !)
        {
            ok( UNIVERSAL::can( $handle, $method ),
                "required method available - $method" );
        }

        #
        #
        # Sanity check by ensuring that a made-up method name is
        # invalid.
        #
        # This ensures we're not misusing UNIVERSAL:can
        #
        ok( !UNIVERSAL::can( $handle, "not_present" ),
            "Random methods aren't present." );
    }
}