Group
Extension

Matches 9

Devel-CheckOS ( D/DC/DCANTRELL/Devel-CheckOS-2.04.tar.gz, DCANTRELL, 2024; MetaCPAN )
Devel-CheckOS/t/checkos.t ( view source; MetaCPAN )
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()
Devel-CheckOS ( D/DC/DCANTRELL/Devel-CheckOS-2.04.tar.gz, DCANTRELL, 2024; MetaCPAN )
Devel-CheckOS/t/import-all.t ( view source; MetaCPAN )
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
Devel-CheckOS ( D/DC/DCANTRELL/Devel-CheckOS-2.04.tar.gz, DCANTRELL, 2024; MetaCPAN )
Devel-CheckOS/t/case-insensitive.t ( view source; MetaCPAN )
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
Devel-CheckOS ( D/DC/DCANTRELL/Devel-CheckOS-2.04.tar.gz, DCANTRELL, 2024; MetaCPAN )
Devel-CheckOS/t/alias-macos.t ( view source; MetaCPAN )
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();
Devel-CheckOS ( D/DC/DCANTRELL/Devel-CheckOS-2.04.tar.gz, DCANTRELL, 2024; MetaCPAN )
Devel-CheckOS/t/suse.t ( view source; MetaCPAN )
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
Devel-CheckOS ( D/DC/DCANTRELL/Devel-CheckOS-2.04.tar.gz, DCANTRELL, 2024; MetaCPAN )
Devel-CheckOS/t/import-fatal.t ( view source; MetaCPAN )

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
Devel-CheckOS ( D/DC/DCANTRELL/Devel-CheckOS-2.04.tar.gz, DCANTRELL, 2024; MetaCPAN )
Devel-CheckOS/t/redhat.t ( view source; MetaCPAN )
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;
Devel-CheckOS ( D/DC/DCANTRELL/Devel-CheckOS-2.04.tar.gz, DCANTRELL, 2024; MetaCPAN )
Devel-CheckOS/t/import-bool.t ( view source; MetaCPAN )
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;
Devel-CheckOS ( D/DC/DCANTRELL/Devel-CheckOS-2.04.tar.gz, DCANTRELL, 2024; MetaCPAN )
Devel-CheckOS/t/multilevel-names.t ( view source; MetaCPAN )
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_

Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.