The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More 'no_plan';
use strict;
use File::Spec;

BEGIN { chdir 't' if -d 't' };
BEGIN { use lib qw[../lib inc] };
BEGIN { require 'conf.pl' }

use JIB::Config;
my $Conf    = JIB::Config->new;
my $Class   = 'JIB::Installation::Set';
my @Acc     = qw[installations];


use_ok( $Class );


### create an object 
my $Obj;
{   $Obj = $Class->new( dirs => [$INSTALLATION_DIR] );
    ok( $Obj,                   "Object created" );
    isa_ok( $Obj,               $Class );
    can_ok( $Obj,               @Acc );

    for my $inst ( @{ $Obj->installations } ) {
        isa_ok( $inst,          "JIB::Installation" );
    }
}




# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4: