use strict;
use lib 't', 'inc';
use Test::More tests => 7;
use onlyTest;

use only '_Foo::Bar' => '0.55';
BEGIN {
    like($INC{'_Foo/Bar.pm'}, qr'0.55');
    is($_Foo::Bar::VERSION, '0.50');
}

use only '_Foo::Bar' => '0.55';
like($INC{'_Foo/Bar.pm'}, qr'0.55');
is($_Foo::Bar::VERSION, '0.50');
eval q{ use only '_Foo::Bar' => '0.50' };
ok($@);
like($INC{'_Foo/Bar.pm'}, qr'0.55');
is($_Foo::Bar::VERSION, '0.50');