src/tests/ptsmembersgroup.pl

   1 #!/usr/bin/env perl
   2 use OpenAFS::CMU_copyright;
   3 use OpenAFS::util qw(:DEFAULT %AFS_Help);
   4 use OpenAFS::afsconf;
   5 use OpenAFS::fs;
   6 use OpenAFS::pts;
   7 use OpenAFS::vos;
   8 use OpenAFS::bos;
   9
  10 my (@membership, $group);
  11 &AFS_Init();
  12
  13 @membership = &AFS_pts_members(testgroup1,);
  14 while ($group = pop(@membership)) {
  15     if ($group ne "testuser1") {
  16         exit(1);
  17     }
  18 }
  19 &AFS_pts_add([admin],[testgroup1],);
  20 @membership = &AFS_pts_members(testgroup1,);
  21 while ($group = pop(@membership)) {
  22     if ($group eq "testuser1") {
  23     } else {
  24         if ($group eq "admin") {
  25         } else {
  26             exit(1);
  27         }
  28     }
  29 }
  30 &AFS_pts_remove([admin],["testgroup1"],);
  31
  32 exit(0);
  33
  34
  35