1 files changed, 62 insertions, 0 deletions
diff --git a/qa/798 b/qa/798
new file mode 100755
index 0000000..11fcac9
--- /dev/null
+++ b/qa/798
@@ -0,0 +1,62 @@
+#! /bin/sh
+# PCP QA Test No. 798
+# Exercise dbpmda use with the Perl implementation of nfsclient
+#
+# Copyright (c) 2013 Red Hat.
+#
+
+seq=`basename $0`
+echo "QA output created by $seq"
+
+# get standard filters
+. ./common.product
+. ./common.filter
+. ./common.check
+
+status=1
+perl -e "use PCP::PMDA" >/dev/null 2>&1
+[ $? -eq 0 ] || _notrun "perl PCP::PMDA module not installed"
+
+trap "rm -f $tmp.*; exit \$status" 0 1 2 3 15
+
+_filter()
+{
+    sed \
+	-e "s;$PCP_PMDAS_DIR;\$PCP_PMDAS_DIR;" \
+	-e "s;$script;pmdanfsclient.pl;" \
+    | _filter_dumpresult
+}
+
+# real QA test starts here
+domain=62
+script=pmdanfsclient.pl
+cd "$PCP_PMDAS_DIR/nfsclient"
+
+# create a root namespace file for dbpmda to use
+PCP_PERL_PMNS=root /usr/bin/perl $script > $tmp.root
+
+# create a set of commands for dbpmda
+cat >$tmp.cmds <<End-of-File
+open pipe /usr/bin/perl $script
+getdesc on
+desc nfsclient.mountpoint
+desc nfsclient.options.string
+desc nfsclient.options.proto
+desc nfsclient.options.vers
+fetch nfsclient.mountpoint
+fetch nfsclient.options.string
+fetch nfsclient.options.proto
+fetch nfsclient.options.vers
+instance $domain.0
+End-of-File
+
+# iterate over our pre-canned mountstats files
+test="$here/nfsclient"
+for file in $test/*.qa
+do
+    export NFSCLIENT_MOUNTSTATS_PATH="$file"
+    echo === Test case: `basename $file`
+    $sudo dbpmda -n $tmp.root -ie < $tmp.cmds 2>&1 | _filter
+done
+
+status=0