test/testclearquestServer.pl

   1 #!cqperl
   2 use strict;
   3 use warnings;
   4
   5 use FindBin;
   6
   7 use lib "$FindBin::Bin/../lib";
   8
   9 use Clearquest::Client;
  10 use Display;
  11 use TimeUtils;
  12
  13 $| = 1;
  14
  15 # Let's time this...
  16 my $startTime = time;
  17
  18 my $cq = Clearquest::Client->new;
  19
  20 my $dbname = $cq->username () . '@' . $cq->database () . '/' . $cq->dbset ();
  21
  22 display_nolf "Connecting to Clearquest database $dbname";
  23
  24 unless ($cq->connect) {
  25   display ' Failed!';
  26
  27   error "Unable to connect to database $dbname", 1;
  28 } # unless
  29
  30 display_duration $startTime;
  31
  32 my ($result, $nbrRecs) = $cq->find ('defect', 'assert == 0', ('id', 'title'));
  33
  34 while (my %record = $cq->getNext ($result)) {
  35   display "$_: $record{$_}" foreach (sort keys %record);
  36 } # while
  37
  38 display 'done';