#!/usr/bin/env perl
use lib 'lib', 'blib/lib', 'blib/arch';
use warnings;
use strict;

use Test::More;

use POSIX::1003::User qw/getuid setuid getgroups/;

my $uid = getuid();
defined $uid or plan skip_all => 'getuid not available';

plan tests => 3;
ok(defined $uid, "getuid=$uid");

SKIP: {
   skip 'tests for non-root', 1 if $uid==0;

   $uid++;
   ok(!defined setuid $uid, "setuid $uid, $!");
}

my $groups = join ', ', getgroups;
ok($groups, "groups: $groups");