1 files changed, 62 insertions, 0 deletions
diff --git a/qa/716 b/qa/716
new file mode 100755
index 0000000..eb3d53c
--- /dev/null
+++ b/qa/716
@@ -0,0 +1,62 @@
+#! /bin/sh
+# PCP QA Test No. 716
+# Exercise dbpmda use with the Perl implementation of pmdasimple.
+#
+# Copyright (c) 2013 Red Hat.
+#
+
+seq=`basename $0`
+echo "QA output created by $seq"
+
+# get standard filters
+. ./common.product
+. ./common.filter
+. ./common.check
+
+perl -e "use PCP::PMDA" >/dev/null 2>&1
+[ $? -eq 0 ] || _notrun "perl PCP::PMDA module not installed"
+
+rm -f $seq.out
+if [ $PCP_VER -lt 3800 ]
+then
+    ln $seq.out.1 $seq.out || exit 1
+else
+    ln $seq.out.2 $seq.out || exit 1
+fi
+
+trap "rm -f $tmp.*; exit" 0 1 2 3 15
+
+_filter()
+{
+    sed \
+	-e "s;$PCP_PMDAS_DIR;\$PCP_PMDAS_DIR;" \
+	-e "s;$script;pmdasimple.pl;" \
+    | _filter_dumpresult
+}
+
+domain=253
+script=pmdasimple.perl
+[ -f $PCP_PMDAS_DIR/simple/$script ] || script=pmdasimple.pl
+
+# ensure help text exists
+cd "$PCP_PMDAS_DIR/simple"
+$sudo ./Install </dev/null >/dev/null 2>&1
+
+# real QA test starts here
+$sudo dbpmda -n root -ie <<End-of-File 2>&1 | _filter
+open pipe /usr/bin/perl $script
+getdesc on
+desc simple.numfetch
+fetch simple.numfetch
+text simple.numfetch
+desc simple.color
+fetch simple.color
+text simple.color
+desc simple.now
+fetch simple.now
+text simple.now
+instance $domain.0
+text indom $domain.1
+End-of-File
+
+exit 0