qa/369

   1 #!/bin/sh
   2 # PCP QA Test No. 369
   3 # Check out libpcp_import
   4 #
   5 # Copyright (c) 2012 Red Hat.
   6 # Copyright (c) 2010 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 [ -f ${PCP_LIB_DIR}/libpcp_import.${DSO_SUFFIX} ] || \
  18         _notrun "No support for libpcp_import"
  19 perl -e "use PCP::LogImport" 2>/dev/null || \
  20         _notrun "Perl PCP::LogImport module is not installed"
  21
  22 rm -f $seq.out
  23 if [ $PCP_VER -ge 30801 ]
  24 then
  25     ln $seq.out.4 $seq.out || exit 1
  26 elif [ $PCP_VER -ge 30800 ]
  27 then
  28     ln $seq.out.3 $seq.out || exit 1
  29 elif [ $PCP_VER -ge 30609 ]
  30 then
  31     ln $seq.out.2 $seq.out || exit 1
  32 else
  33     ln $seq.out.1 $seq.out || exit 1
  34 fi
  35
  36 status=0        # success is the default!
  37 $sudo rm -rf $tmp.* $seq.full
  38 trap "cd $here; rm -rf $tmp; exit \$status" 0 1 2 3 15
  39
  40 _filter1()
  41 {
  42     sed \
  43         -e '/pmResult/s/ .* numpmid/ ... numpmid/' \
  44         -e '/[0-9][0-9]:[0-9][0-9]:[0-9][0-9]/s/[^ ]*/TIMESTAMP/' \
  45         -e '/^EXPORT_FAIL$/d' \
  46         -e '/::EXPORT_FAIL$/d'
  47 }
  48
  49 _filter2()
  50 {
  51     _filter_pmdumplog \
  52     | sed \
  53         -e '/PID for pmlogger:/s/[0-9][0-9]*/PID/'
  54 }
  55
  56 _filter3()
  57 {
  58     $PCP_AWK_PROG '
  59 BEGIN           { part = "part1" }
  60 NF == 0         { part = "part2" }
  61                 { print >part }'
  62     if [ -f part1 ]
  63     then
  64         # first part of output is in non-deterministic order, so sort it
  65         #
  66         _filter1 <part1 | LC_COLLATE=POSIX sort
  67     fi
  68     [ -f part2 ] && _filter1 <part2
  69 }
  70
  71 mkdir $tmp
  72 cd $tmp
  73
  74 # real QA test starts here
  75 echo "C version ..." | tee -a $here/$seq.full
  76 $here/src/check_import 2>&1 | tee -a $here/$seq.full | _filter1
  77 pminfo -dm -a myarchive
  78 pmdumplog -a myarchive 2>&1 | _filter2
  79
  80 echo
  81 echo "Perl wrapper version ..." | tee -a $here/$seq.full
  82 rm -f myarchive.*
  83 perl $here/src/check_import.perl 2>&1 | tee -a $here/$seq.full | _filter3
  84 pminfo -dm -a myarchive
  85 pmdumplog -a myarchive 2>&1 | _filter2
  86
  87 # success, all done
  88 exit