The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
$^W = 1;

use Test::More tests => 3;

use Devel::CheckOS ':booleans';

use File::Spec;
use lib File::Spec->catdir(qw(t lib));

ok(os_is('AnOperatingSystem::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_platforms()) =~ /\bLinux::v2_6\b/,
    "list_platforms supports multi-level names");