use strict;
$^W = 1;

use Test::More tests => 5;

use Devel::CheckOS;

eval { Devel::CheckOS::list_family_members() };
ok($@, 'list_family_members() is fatal');

is_deeply(
    scalar(Devel::CheckOS::list_family_members('Cygwin')), [],
    'list_family_members($not_a_family) gives an empty list'
);

is_deeply(
    [(Devel::CheckOS::list_family_members('DEC'))],
    [qw(OSF VMS)],
    'array list_family_members works for DEC family'
);
is_deeply(
    scalar(Devel::CheckOS::list_family_members('DEC')),
    [qw(OSF VMS)],
    'scalar list_family_members works for DEC family'
);
is_deeply(
    scalar(Devel::CheckOS::list_family_members('MicrosoftWindows')),
    [qw(Cygwin MSWin32)],
    'scalar list_family_members works for MicrosoftWindows family'
);