qa/241

   1 #!/bin/sh
   2 # PCP QA Test No. 241
   3 # mmv pmda exerciser ... Martin's test case that was failing
   4 # mmv install/cleanup borrowed from 647
   5 #
   6 # Copyright (c) 2009 Silicon Graphics, Inc.  All Rights Reserved.
   7 # Copyright (c) 2009 Ken McDonell.  All Rights Reserved.
   8 #
   9
  10 seq=`basename $0`
  11 echo "QA output created by $seq"
  12
  13 # get standard filters
  14 . ./common.product
  15 . ./common.filter
  16 . ./common.check
  17
  18 perl -e "use PCP::MMV" >/dev/null 2>&1
  19 [ $? -eq 0 ] || _notrun "perl PCP::MMV module not installed"
  20
  21 rm -f $seq.out
  22 if [ $PCP_VER -lt 30600 ]
  23 then
  24     ln $seq.out.1 $seq.out || exit 1
  25 else
  26     ln $seq.out.2 $seq.out || exit 1
  27 fi
  28
  29 status=0        # success is the default!
  30 done_clean=false
  31 MMV_STATS_DIR="$PCP_TMP_DIR/mmv"
  32
  33 $sudo rm -rf $tmp.*
  34
  35 # for QA the default install for mmv PMDA is as a dso, not a daemon
  36 #
  37 cat <<End-of-File >$tmp.input
  38 b
  39 dso
  40 End-of-File
  41
  42 _cleanup()
  43 {
  44     if $done_clean
  45     then
  46         :
  47     else
  48         _restore_config $PCP_PMCDCONF_PATH
  49         [ -d $MMV_STATS_DIR.$seq ] && _restore_config $MMV_STATS_DIR
  50         $sudo $PCP_RC_DIR/pcp restart | _filter_pcp_start
  51         _wait_for_pmcd
  52         _wait_for_pmlogger
  53         if $install_on_cleanup
  54         then
  55             ( cd $PCP_PMDAS_DIR/mmv; $sudo ./Install <$tmp.input >/dev/null 2>&1 )
  56         else
  57             ( cd $PCP_PMDAS_DIR/mmv; $sudo ./Remove </dev/null >/dev/null 2>&1 )
  58         fi
  59         rm -f $tmp.*
  60         done_clean=true
  61     fi
  62     exit $status
  63 }
  64
  65 install_on_cleanup=false
  66 pminfo mmv >/dev/null 2>&1 && install_on_cleanup=true
  67
  68 trap "_cleanup" 0 1 2 3 15
  69
  70 home="$PCP_PMDAS_DIR"
  71 iam=mmv
  72 if [ ! -d "$home/$iam" ]
  73 then
  74     echo "Where is $home/$iam?"
  75     exit 1
  76 fi
  77 cd "$home/$iam"
  78 unset ROOT MAKEFLAGS
  79
  80 # copy the pmcd config file to restore state later.
  81 _save_config $PCP_PMCDCONF_PATH
  82 # move the MMV directory to restore contents later.
  83 [ -d $MMV_STATS_DIR ] && _save_config $MMV_STATS_DIR
  84
  85 # start from a known starting point
  86 $sudo ./Remove >/dev/null 2>&1
  87
  88 $sudo rm -rf $MMV_STATS_DIR
  89 $sudo mkdir $MMV_STATS_DIR 2>/dev/null
  90 $sudo chmod 1777 $MMV_STATS_DIR 2>/dev/null
  91
  92 cat <<'End-of-File' >$tmp.perl
  93 use strict;
  94 use warnings;
  95 use PCP::MMV;
  96
  97 my @indoms = ();
  98 my @metrics = (
  99     ['export_value',
 100      1, MMV_TYPE_U64, MMV_INDOM_NULL,
 101      mmv_units(0,0,0,0,0,0), MMV_SEM_INSTANT,
 102      'A counter of some value', ''
 103     ]
 104 );
 105
 106 my $handle = mmv_stats_init('mymmv', 0, MMV_FLAG_PROCESS, \@metrics, \@indoms);
 107 die ("mmv_stats_init failed\n") unless (defined($handle));
 108
 109 while (my $line = <STDIN>) {
 110     print $line;
 111     next if not $line =~ /^new value:/;
 112
 113     my $val;
 114     ($val = $line) =~ s/^new value: (\d+)/$1/;
 115     chomp $val;
 116     mmv_stats_set($handle, 'export_value', '', $val);
 117 }
 118 End-of-File
 119
 120 # real QA test starts here
 121
 122 echo
 123 echo "=== $iam agent installation ==="
 124 $sudo ./Install -e <$tmp.input >$tmp.out 2>&1
 125 _filter_pmda_install <$tmp.out
 126
 127 value=5
 128 for i in 1 2 3 4
 129 do
 130    echo "new value: $value"
 131    value=`expr $value + 1`
 132    sleep 1
 133    [ "$i" = 1 ] && pmval -t 0.5sec -s 20 mmv.mymmv.export_value >$tmp.out 2>&1 &
 134    sleep 1
 135 done \
 136 | perl $tmp.perl
 137
 138
 139 wait
 140
 141 echo "Filtered pmval output ..."
 142 grep '^[a-z]' $tmp.out | sed -e '/^host:.*$/s/.*/HOST/'
 143 grep '^[^a-z]' $tmp.out | LC_COLLATE=POSIX sort -u
 144
 145 # success, all done
 146 exit