view release on metacpan or  search on metacpan

t/02-funcs.t  view on Meta::CPAN

}

ok($< xor $c->check_root);

TODO: {
   local $TODO = "Make a better way to test change_user()";
   #skip "You are not root", 2 unless $c->check_root;
   my $file = tmpnam;
   my ($user, $new_uid);
   for my $uid(1 ... 9999){
      $user = getpwuid($uid);
      $new_uid = $uid;
      last if $user;
   }
   #skip "No user to test", 2 unless $user;
   my $pid = fork();
   if(not $pid){
      $c->change_user($user);
      open $TMP, "<", $file || die "Can't create \"$file\"";
      close $TMP;
      exit