qa/103

   1 #! /bin/sh
   2 # PCP QA Test No. 103
   3 # exercise the logging state compatibility matrix for pmlc ...
   4 # initial: some instances for a metric
   5 # request: some overlapping instances for the same metric
   6 #
   7 # Copyright (c) 2014 Red Hat.
   8 # Copyright (c) 1995-2002 Silicon Graphics, Inc.  All Rights Reserved.
   9 #
  10
  11 seq=`basename $0`
  12 echo "QA output created by $seq"
  13
  14 # get standard filters
  15 . ./common.product
  16 . ./common.filter
  17 . ./common.check
  18
  19 trap "$sudo rm -f $tmp $tmp.*; exit" 0 1 2 3 15
  20
  21 _filter_pmlc()
  22 {
  23     sed \
  24         -e '/connect /{
  25 s/connect [0-9][0-9]*/connect PID/
  26 s/@.*/@HOSTNAME/
  27 }' \
  28         -e '/Connected /{
  29 s/ on port [0-9][0-9]*//
  30 s/ pid [0-9][0-9]*//
  31 s/ at .*/ at HOSTNAME/
  32 }' \
  33         -e 's/ nl /    /' \
  34         -e "/timed out/d" \
  35         -e 's/Version [0-9].*/Version VERSION/' \
  36     | $PCP_AWK_PROG '
  37 /pmlc commands/         { skip = 1; print "[command summary deleted ...]" }
  38 /metric-name/           { skip = 0; next }
  39 skip == 1               { next }
  40                         { print }'
  41 }
  42
  43 _filter_logger()
  44 {
  45     _filter_pmlogger_log \
  46     | sed \
  47         -e '/AF event queue/d'
  48 }
  49
  50 _filter_dump()
  51 {
  52     _filter_pmdumplog \
  53     | sed \
  54         -e '/^$/d' \
  55         -e '/pmResult/s/ .* numpmid/ ... numpmid/' \
  56         -e '/inst /{
  57 s/inst \[[0-9][0-9]* or "dks..."]/inst [DISK]/
  58 s;inst \[[0-9][0-9]* or "/dev/[^"]*"];inst [DISK];
  59 s;inst \[[0-9][0-9]* or ".*/dbs/.*\.dbf"];inst [FILE];
  60 }' \
  61         -e '/value /{
  62 s/value [0-9][0-9]*\.[0-9][0-9]*e.[0-9][0-9]*/value NUMBER/
  63 s/value [0-9][0-9]*\.[0-9][0-9]*/value NUMBER/
  64 s/value [0-9][0-9]*e.[0-9][0-9]*/value NUMBER/
  65 s/value [0-9][0-9]*/value NUMBER/
  66 s/value \[.*]/value AGGREGATE/
  67 s/value ".*"/value STRING/
  68 }' \
  69         -e "/pmcd\.pmlogger\./s/$logger_pid/LOGGER_PID/g" \
  70         -e '/pmcd\.pmlogger\.port/s/value .*/value PORT/' \
  71         -e '/pmcd\.pmlogger\.host/s/value ".*/value "HOST"/' \
  72         -e '/pmcd\.pmlogger\.archive/s/value ".*/value "PATH"/' \
  73     # end
  74 }
  75
  76 _do_cmds()
  77 {
  78     for ctl in mandatory advisory
  79     do
  80         for state in "on once" maybe off
  81         do
  82             [ "$ctl $state" = "advisory maybe" ] && continue
  83             for req_ctl in mandatory advisory
  84             do
  85                 for req_state in "on once" maybe off
  86                 do
  87                     [ "$req_ctl $req_state" = "advisory maybe" ] && continue
  88                     ( echo "# setup"; \
  89
  90                       echo "log mandatory maybe sample.bin "'[ "bin-100", "bin-200", "bin-300", "bin-400", "bin-500" ]'; \
  91                       echo "# $ctl $state -> $req_ctl $req_state"; \
  92                       echo "log $ctl $state sample.bin "'[ "bin-100", "bin-200", "bin-300"]'; \
  93                     ) | pmlc -ie $1
  94                     pmsleep 0.5
  95                     ( echo "log $req_ctl $req_state sample.bin "'[ "bin-200", "bin-400" ]'; \
  96                       echo "query sample.bin"; \
  97                     ) | pmlc -ie $1
  98                     pmsleep 0.5
  99                     # need sleeps to allow pmlogger to get a look in and
 100                     # to allow the pmlogger socket to be closed so the
 101                     # next pmlc invocation can get connected
 102                 done
 103             done
 104         done
 105     done
 106 }
 107
 108 x=3
 109
 110 # real QA test starts here
 111 $sudo rm -f $tmp.0 $tmp.meta $tmp.index
 112
 113 # start pmlogger with the expected number of samples plus a few more
 114 # to detect extra log output
 115 #
 116 _start_up_pmlogger -t 0.5sec -L -s 30 -c /dev/null -l $tmp.log $tmp >$tmp.err 2>&1
 117 logger_pid=$pid
 118
 119 pmsleep 1.5
 120 _do_cmds $logger_pid >$tmp.out 2>&1
 121
 122 # this chews up any remaining samples quickly so pmlogger terminates
 123 #
 124 echo "log mandatory on 25 msec sample.long.one" \
 125 | pmlc -ie $logger_pid >>$tmp.out 2>&1
 126
 127 _filter_pmlc <$tmp.out
 128
 129 # wait for pmlogger to terminate
 130 #
 131 _wait_pmlogger_end $logger_pid
 132 cat $tmp.err $tmp.log | _filter_logger
 133
 134 echo
 135 if [ -s $tmp.0 ]
 136 then
 137     echo "Uniq filtered entries from pmdumplog ..."
 138     pmdumplog $tmp \
 139     | _filter_dump \
 140     | sed -e 's/TIMESTAMP//' -e 's/^  *//' \
 141     | LC_COLLATE=POSIX sort -u
 142     pmdumplog $tmp >$seq.full 2>&1
 143 else
 144     echo "Archive log is empty"
 145 fi
 146
 147 exit