test/testvobs.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use FindBin;
   6 use Term::ANSIColor qw(:constants);
   7
   8 my $libs;
   9
  10 BEGIN {
  11   $libs = $ENV{SITE_PERLLIB} ? $ENV{SITE_PERLLIB} : "$FindBin::Bin/../lib";
  12
  13   die "Unable to find libraries\n" if !$libs and !-d $libs;
  14 } # BEGIN
  15
  16 use lib $libs;
  17
  18 use Clearcase;
  19 use Clearcase::Vobs;
  20 use Display;
  21
  22 my $vobs = new Clearcase::Vobs;
  23
  24 my $nbr_vobs    = $vobs->vobs;
  25 my @vob_list    = $vobs->vobs;
  26
  27 display YELLOW . "Clearcase VOBs\n" . RESET;
  28
  29 display MAGENTA . "Number of vobs:\t\t"         . RESET . $nbr_vobs;
  30 display MAGENTA . "VOB list:\n"                 . RESET;
  31
  32 display "\t$_" foreach (@vob_list);
  33
  34 if ($vobs->umount) {
  35   display "Unmounted all vobs";
  36 } # if
  37
  38 if ($vobs->mount) {
  39   display "Mounted all vobs";
  40 } # if