test/testelement.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::Element;
  20 use Display;
  21
  22 error "Usage: $0 <pname>", 1 if !$ARGV[0];
  23
  24 my $element = new Clearcase::Element (pname => $ARGV[0]);
  25
  26 display MAGENTA . "Element:\t"  . RESET . $element->pname;
  27 display MAGENTA . "Version:\t"  . RESET . $element->version;
  28 display MAGENTA . "Pred:\t\t"   . RESET . $element->pred;
  29
  30 display MAGENTA . "Activities:" . RESET;
  31
  32 if (my %activities = $element->activities) {
  33   display "\t\t$_: $activities{$_}" foreach (keys %activities);
  34 } else {
  35   display CYAN  . "\t\tNone"    . RESET;
  36 } # if
  37
  38 display MAGENTA . "Attributes:" . RESET;
  39
  40 if (my %attributes = $element->attributes) {
  41   display "\t\t$_=$attributes{$_}" foreach (keys %attributes);
  42 } else {
  43   display CYAN  . "\t\tNone"    . RESET;
  44 } # if
  45
  46 display MAGENTA . "Hyperlinks:" . RESET;
  47
  48 if (my @hyperlinks = $element->hyperlinks) {
  49   display "\t\t$_" foreach (@hyperlinks);
  50 } else {
  51   display CYAN  . "\t\tNone"    . RESET;
  52 } # if
  53
  54 display MAGENTA . "Comments:"           . RESET . $element->comments;
  55 display MAGENTA . "Create_date:\t"      . RESET . $element->create_date;
  56 display MAGENTA . "User:\t\t"           . RESET . $element->user;
  57 display MAGENTA . "Group:\t\t"          . RESET . $element->group;
  58 display MAGENTA . "User_mode:\t"        . RESET . $element->user_mode;
  59 display MAGENTA . "Group_mode:\t"       . RESET . $element->group_mode;
  60 display MAGENTA . "Other_mode:\t"       . RESET . $element->other_mode;
  61 display MAGENTA . "Mode:\t\t"           . RESET . $element->mode;
  62
  63 display MAGENTA . "Labels:"     . RESET;
  64
  65 if (my @labels = $element->labels) {
  66   display "\t\t$_" foreach (@labels);
  67 } else {
  68   display CYAN  . "\t\tNone"    . RESET;
  69 } # if
  70
  71 display MAGENTA . "Rule:\t\t"           . RESET . $element->rule;
  72 display MAGENTA . "Xname:\t\t"          . RESET . $element->xname;