The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use lib 't', 'inc';
use Test::More tests => 4;
use onlyTest;
use File::Spec;
no warnings 'once';

create_distributions
{
    '_Boom' =>
    {
        '0.77' =>
        {
            '_Boom' => ['0.77', '$_Boom::boom="Bada-Boom";'],
        },
    },
};

my $versionlib = File::Spec->rel2abs(File::Spec->catdir(qw(t alternate)));

version_install('_Boom-0.77', versionlib => $versionlib);
ok(-f File::Spec->catfile(qw(t alternate 0.77 _Boom.pm)));

eval qq{use only {versionlib => '$versionlib'}, _Boom => '0.77'};
is($@, '');
is($_Boom::VERSION, '0.77');
is($_Boom::boom, 'Bada-Boom');