qa/763

   1 #!/bin/sh
   2 # PCP QA Test No. 763
   3 # Exercise slow PMDA connect_pmcd() method.
   4 # [see also qa/843 for the Python version]
   5 #
   6 # Copyright (c) 2014 Ken McDonell.  All Rights Reserved.
   7 #
   8
   9 seq=`basename $0`
  10 echo "QA output created by $seq"
  11
  12 # get standard environment, filters and checks
  13 . ./common.product
  14 . ./common.filter
  15 . ./common.check
  16
  17 perl -e "use PCP::PMDA" >/dev/null 2>&1
  18 [ $? -eq 0 ] || _notrun "perl PCP::PMDA module not installed"
  19
  20 _cleanup()
  21 {
  22     if pmprobe -I pmcd.agent.status | grep '"slow"' >/dev/null
  23     then
  24         cd $here/pmdas/slow
  25         $sudo ./Remove >>$here/$seq.full 2>&1
  26         $sudo rm -f domain.h.perl pmns.perl
  27         cd $here
  28     fi
  29 }
  30
  31 status=1        # failure is the default!
  32 $sudo rm -rf $tmp.* $seq.full
  33 trap "cd $here; rm -rf $tmp.*; _cleanup; exit \$status" 0 1 2 3 15
  34
  35 cd pmdas/slow
  36 make clean >>$here/$seq.full 2>&1
  37
  38 # real QA test starts here
  39 for start in 0 4 -4
  40 do
  41     echo | tee -a $here/$seq.full
  42     case "$start"
  43     in
  44         0)
  45             echo "=== no start delay ===" | tee -a $here/$seq.full
  46             ;;
  47         -[0-9]*)
  48             echo "=== start delay `expr -1 \* $start` sec, no connect_pmcd() ===" | tee -a $here/$seq.full
  49             ;;
  50         [0-9]*)
  51             echo "=== start delay $start sec, using connect_pmcd() ===" | tee -a $here/$seq.full
  52             ;;
  53     esac
  54     date >>$here/$seq.full
  55     cat <<End-of-File | $sudo ./Install
  56 both
  57 $start
  58 End-of-File
  59     date >>$here/$seq.full
  60     pminfo -f slow | tee -a $here/$seq.full
  61     $sudo cat $PCP_LOG_DIR/pmcd/slow.log >>$here/$seq.full
  62     $sudo tail -40 $PCP_LOG_DIR/pmcd/pmcd.log >>$here/$seq.full
  63 done
  64
  65 # success, all done
  66 status=0
  67
  68 exit