test/testviews.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::Views;
  20 use Display;
  21
  22 my $views = new Clearcase::Views;
  23
  24 my $nbr_views   = $views->views;
  25 my @view_list   = $views->views;
  26
  27 display YELLOW . "Clearcase Views\n" . RESET;
  28
  29 display MAGENTA . "Number of views:\t\t"        . RESET . $nbr_views;
  30 display MAGENTA . "View list:\n"                . RESET;
  31
  32 display "\t$_" foreach (@view_list);