test/testclearcase.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"
  14     unless -d $libs;
  15 } # BEGIN
  16
  17 use lib $libs;
  18
  19 use Clearcase;
  20 use Display;
  21
  22 my ($status, @output) = $Clearcase::CC->execute ('-ver');
  23
  24 error 'Clearcase is not installed on this system', 1
  25   if $status;
  26
  27 display YELLOW . "Global Clearcase Variables\n" . RESET;
  28
  29 my $view_drive     = $Clearcase::VIEW_DRIVE;
  30 my $vob_mount      = $Clearcase::VOB_MOUNT;
  31 my $win_vob_prefix = $Clearcase::WIN_VOB_PREFIX;
  32 my $vobtag_prefix  = $Clearcase::VOBTAG_PREFIX;
  33 my $countdb        = $Clearcase::COUNTDB;
  34
  35 display MAGENTA . "View Drive:\t\t"       . RESET . $view_drive;
  36 display MAGENTA . "VOB Mount:\t\t"        . RESET . $vob_mount;
  37 display MAGENTA . "Windows VOB prefix:\t" . RESET . $win_vob_prefix;
  38 display MAGENTA . "VOB Tag Prefix:\t\t"   . RESET . $vobtag_prefix;
  39 display MAGENTA . "CountDB:\t\t"          . RESET . $countdb;
  40
  41 display CYAN    . "\nGlobal Clearcase Configuration\n" . RESET;
  42
  43 display MAGENTA . "Client:\t\t\t"       . RESET . $Clearcase::CC->client;
  44 display MAGENTA . "Hardware type:\t\t"  . RESET . $Clearcase::CC->hardware_type;
  45 display MAGENTA . "License host:\t\t"   . RESET . $Clearcase::CC->license_host;
  46 display MAGENTA . "OS:\t\t\t"           . RESET . $Clearcase::CC->os;
  47 display MAGENTA . "Region:\t\t\t"       . RESET . $Clearcase::CC->region;
  48 display MAGENTA . "Registry host:\t\t"  . RESET . $Clearcase::CC->registry_host;
  49 display MAGENTA . "Sitename:\t\t"       . RESET . $Clearcase::CC->sitename;
  50 display MAGENTA . "Version:\t\t"        . RESET . $Clearcase::CC->version;
  51
  52 display GREEN . "\nCleartool Access\n" . RESET;
  53
  54 display_nolf MAGENTA . "Views:\t" . RESET;
  55
  56 ($status, @output) = $Clearcase::CC->execute ("lsview -s");
  57
  58 display scalar @output;
  59
  60 display_nolf MAGENTA . "VOBs:\t" . RESET;
  61
  62 ($status, @output) = $Clearcase::CC->execute ("lsvob -s");
  63
  64 display scalar @output;
  65
  66 ($status, @output) = $Clearcase::CC->execute ("invalid command");
  67
  68 display $_ foreach (@output);