view release on metacpan or  search on metacpan

t/AIX-LVM.t  view on Meta::CPAN

				"get_PV_LV_command",
				"get_LV_logical_command",
				"get_LV_M_command"
			);
foreach my $meth (@methods) {
    can_ok('AIX::LVM', $meth);
}

SKIP: {
        skip "Environment is not AIX", 6 if $^O!~/aix/i;
        eval {
		  $lvm = new AIX::LVM;
        };
        isa_ok($lvm,"AIX::LVM");
	ok(!$@,"Loaded Module AIX::LVM") or diag("Error is $@") ;
		isa_ok( $lvm, "AIX::LVM" );
		SKIP: {
			skip "Module itself have errors", 3 if $@;
			ok(grep(/rootvg/,$lvm->get_logical_volume_group),"Get Volume Groups");
			ok(scalar($lvm->get_physical_volumes), "Physical Volume Presence");
			ok(scalar($lvm->get_logical_volumes), "Logical Volume Presence");