src/tests/ptssetf.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 (%info);
  11 &AFS_Init();
  12
  13 &AFS_pts_setf(testuser1,"S-M--",30,);
  14 %info = &AFS_pts_examine(testuser1,);
  15 if ($info{'creator'} ne "admin") {
  16     exit(1);
  17 }
  18 if ($info{'flags'} ne "S-M--") {
  19     exit(1);
  20 }
  21 if ($info{'group_quota'} != 30) {
  22     exit(1);
  23 }
  24
  25 exit(0);
  26
  27
  28