vel::CheckOS::os_isnt('NotAnOperatingSystem'),
"a single invalid OS detectedby os_isnt");
ok(!Devel::CheckOS::os_isnt('AnOperatingSystem'),
"a single valid OS detectedby os_isnt");
eval { Devel
::CheckOS::die_if_os_isnt('AnOperatingSystem') };
ok(!$@, "a single valid OS detected using die_if_os_isnt");
eval { Devel::CheckOS::die_if_os_is('AnOperatingSystem') };
ok($@ =~ /OS unsupported/i, "a
if_os_is");
eval { Devel::CheckOS::die_if_os_isnt('NotAnOperatingSystem') };
ok($@ =~ /OS unsupported/i, "a single invalid OS detected using die_if_os_isnt");
eval { Devel::CheckOS::die_unsupported()
atingSystem'), "os_is imported");
ok(os_isnt('NotAnOperatingSystem'), "os_isnt imported");
eval { die_if_os_isnt('AnOperatingSystem') };
ok(!$@, "die_if_os_isnt imported");
eval { die_if_os_is('AnOpe
o import yet!
use Test::More;
use Devel::CheckOS qw(list_platforms list_family_members os_is os_isnt);
my $platform = find_platform();
# some platforms have all-upper names, so check the lower-cas
),
"... regardless of order"
);
ok(
!os_isnt(
(os_is('Linux') ? 'Irix' : 'Linux'),
'anoperatingsystem'
),
"os_isnt is also case-insensitive"
);
done_testing;
sub f
heckOS qw(os_is os_isnt);
use Test::More;
if(os_is('MacOSX')) {
ok(os_is('MacOS'), "the alias works");
ok(os_is('MACOS'), "... case-insensitively");
} else {
ok(os_isnt('MacOS'), "the al
ias doesn't work because you're not on a Mac");
ok(os_isnt('MACOS'), "... case-insensitively");
}
done_testing();
use warnings;
use strict;
use Test::More;
use Devel::CheckOS qw(os_is os_isnt);
use Devel::CheckOS::Helpers::LinuxOSrelease 'distributor_id';
local $^O = 'linux';
Devel::CheckOS::Helpers::LinuxOSrel
k(os_is('Linux::SLES'), "detected SLES");
ok(os_is('Linux::SUSE'), "... and also as SUSE");
ok(os_isnt('Linux::OpenSUSE'), "... but not as OpenSUSE");
Devel::CheckOS::Helpers::LinuxOSrelease::_set_fi
SE'), "detected tumbleweed as OpenSUSE");
ok(os_is('Linux::SUSE'), "... and also as SUSE");
ok(os_isnt('Linux::SLES'), "... but not as SLES");
Devel::CheckOS::Helpers::LinuxOSrelease::_set_file('t/et
use File::Spec;
use lib File::Spec->catdir(qw(t lib));
eval { die_if_os_isnt('AnOperatingSystem') };
ok(!$@, "die_if_os_isnt imported");
eval { die_if_os_is('AnOperatingSystem') };
ok($@ =~ /OS unsu
use warnings;
use strict;
use Test::More;
use Devel::CheckOS qw(os_is os_isnt);
use Devel::CheckOS::Helpers::LinuxOSrelease 'distributor_id';
local $^O = 'linux';
my @candidates = qw(RHEL Fedora Cen
... and also as Redhat");
foreach my $not_candidate (grep { $_ ne $candidate } @candidates) {
ok(os_isnt("Linux::$not_candidate"), "... and not as $not_candidate");
}
}
done_testing;
CheckOS ':booleans';
use File::Spec;
use lib File::Spec->catdir(qw(t lib));
ok(os_is('AnOperatingSystem'), "os_is imported");
ok(os_isnt('NotAnOperatingSystem'), "os_isnt imported");
done_testing;
nOperatingSystem::v2'), "os_is works for a multi-level name that exists");
ok(os_isnt('AnOperatingSystem::v1'), "os_isnt works for a multi-level name that exists");
ok(join(' ', Devel::CheckOS::list_