src/tests/ptslistmax.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 @info = &AFS_pts_listmax();
  14 if ($info[0] != 100) {
  15     exit(1);
  16 }
  17 if ($info[1] != -300) {
  18     exit(1);
  19 }
  20
  21 exit(0);
  22
  23
  24