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");