src/tests/voslistvol.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 ($host, $ret, %vols, $lvol, %vol);
  11 $host = `hostname`;
  12 &AFS_Init();
  13
  14 %vols = &AFS_vos_listvol("localhost","b",);
  15 $lvol=$vols{'testvol3'};
  16 %vol=%$lvol;
  17 # if it worked it worked...
  18 if ($vol{'part'} ne "b") {
  19     exit(1);
  20 }
  21 exit(0);
  22
  23
  24