The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More qw( no_plan );
use Test::Memory::Cycle;
use Linux::LVM2;
use Test::MockObject::Universal;

my $LVM2 = Linux::LVM2::->new( { 'logger' => Test::MockObject::Universal->new(), } );
SKIP: {
   skip 'Missing tools not available', 1, unless
      (-x '/sbin/lvs' && -x '/sbin/lvdisplay' && -x '/sbin/vgdisplay' && -x '/sbin/pvdisplay');
   $LVM2->vgs();
}
memory_cycle_ok($LVM2);
isa_ok( $LVM2, 'Linux::LVM2' );
can_ok( $LVM2, qw(vgs) );