src/tests/baduniq.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);
  11 $host = `hostname`;
  12 &AFS_Init();
  13
  14 &AFS_vos_restore("badvol","localhost","a","/tmp/t.uniq-bad","100","full",);
  15 &AFS_bos_salvage("localhost","a","badvol",,,,,,);
  16 &AFS_fs_mkmount("badvol", "badvol",,,);
  17 if ( -f "badvol/test" ) {
  18  &AFS_fs_rmmount("badvol");
  19  exit(0);
  20 }
  21 &AFS_fs_rmmount("badvol");
  22 exit(1);
  23
  24
  25