diff options
Diffstat (limited to 'qa/src/exercise.c')
| -rw-r--r-- | qa/src/exercise.c | 197 |
1 files changed, 197 insertions, 0 deletions
diff --git a/qa/src/exercise.c b/qa/src/exercise.c new file mode 100644 index 0000000..6371f91 --- /dev/null +++ b/qa/src/exercise.c @@ -0,0 +1,197 @@ +/* + * Copyright (c) 1995-2002 Silicon Graphics, Inc. All Rights Reserved. + */ + +/* + * General exerciser, checks (for licensed/unlicensed PMCDs) + * - PMCD availability + * - pmDesc availability + * - indom availiability + * - metric value availability + * - memory leaks (when -i used to make iterations > 1) + */ + +#include <ctype.h> +#include <string.h> +#include <pcp/pmapi.h> +#include <pcp/impl.h> + +extern int errno; + +static int _metrics; +static int _indom; +static int _insitu; +static int _ptr; + +static void +dometric(const char *name) +{ + int n; + pmID pmidlist[] = { PM_ID_NULL }; + pmDesc desc; + int *instlist = NULL; + char **instname = NULL; + pmResult *result; + extern int pmDebug; + + _metrics++; + + /* cast const away as pmLookupName will not modify this string */ + if ((n = pmLookupName(1, (char **)&name, pmidlist)) < 0) { + printf("%s: pmLookupName: %s\n", name, pmErrStr(n)); + return; + } + if ((n = pmLookupDesc(pmidlist[0], &desc)) < 0) { + printf("%s: pmLookupDesc: %s\n", name, pmErrStr(n)); + return; + } + if (desc.indom != PM_INDOM_NULL) { + _indom++; + if ((n = pmGetInDom(desc.indom, &instlist, &instname)) < 0) { + printf("%s: pmGetInDom: %s\n", name, pmErrStr(n)); + return; + } + if (instlist) + free(instlist); + if (instname) + free(instname); + } + if ((n = pmFetch(1, pmidlist, &result)) < 0) { + printf("%s: pmFetch: %s\n", name, pmErrStr(n)); + return; + } + if (result->numpmid != 1) { + printf("%s: pmFetch: numpmid=%d, not 1\n", name, result->numpmid); + } + else { + if (result->vset[0]->numval == 0) + printf("%s: pmFetch: no value available\n", name); + else if (result->vset[0]->numval < 0) + printf("%s: pmFetch: %s\n", name, pmErrStr(result->vset[0]->numval)); + else { + if (result->vset[0]->valfmt == PM_VAL_INSITU) { + _insitu++; + if (pmDebug && DBG_TRACE_APPL0) + printf("%s: insitu type=%s\n", name, pmTypeStr(desc.type)); + } + else { + _ptr++; + if (pmDebug && DBG_TRACE_APPL0) + printf("%s: ptr size=%d valtype=%d descrtype=%s\n", + name, + result->vset[0]->vlist[0].value.pval->vlen, + result->vset[0]->vlist[0].value.pval->vtype, + pmTypeStr(desc.type)); + } + } + } + pmFreeResult(result); +} + +int +main(argc, argv) +int argc; +char *argv[]; +{ + int c; + int sts; + int i; + int errflag = 0; + char *host = "localhost"; + char *namespace = NULL; + char *endnum; + int iter = 1; + unsigned long datasize; +#ifdef PCP_DEBUG + static char *debug = "[-D N]"; +#else + static char *debug = ""; +#endif + static char *usage = "[-h hostname] [-i iterations] [-n namespace] [-l licenseflag ] [name ...]"; + + __pmProcessDataSize(NULL); + __pmSetProgname(pmProgname); + + while ((c = getopt(argc, argv, "D:h:i:l:n:")) != EOF) { + switch (c) { + +#ifdef PCP_DEBUG + case 'D': /* debug flag */ + sts = __pmParseDebug(optarg); + if (sts < 0) { + fprintf(stderr, "%s: unrecognized debug flag specification (%s)\n", + pmProgname, optarg); + errflag++; + } + else + pmDebug |= sts; + break; +#endif + + case 'h': /* hostname for PMCD to contact */ + host = optarg; + break; + + case 'i': /* iteration count */ + iter = (int)strtol(optarg, &endnum, 10); + if (*endnum != '\0') { + fprintf(stderr, "%s: -i requires numeric argument\n", pmProgname); + errflag++; + } + break; + + case 'n': /* alternative name space file */ + namespace = optarg; + break; + + case '?': + default: + errflag++; + break; + } + } + + if (errflag) { + fprintf(stderr, "Usage: %s %s%s\n", pmProgname, debug, usage); + exit(1); + } + + sts = pmNewContext(PM_CONTEXT_HOST, host); + + if (sts < 0) { + printf("%s: Cannot connect to PMCD on host \"%s\": %s\n", pmProgname, host, pmErrStr(sts)); + exit(1); + } + + if (namespace != NULL) { + /* + * only explicitly load namespace if -n specified + */ + if ((sts = pmLoadNameSpace(namespace)) < 0) { + printf("%s: Cannot load namespace from \"%s\": %s\n", pmProgname, namespace, pmErrStr(sts)); + exit(1); + } + } + + /* non-flag args are argv[optind] ... argv[argc-1] */ + + for (i = 0; i < iter; i++) { + if (optind >= argc) + pmTraversePMNS("", dometric); + else { + int a; + for (a = optind; a < argc; a++) { + pmTraversePMNS(argv[a], dometric); + } + } + __pmProcessDataSize(&datasize); + printf("[%d] %d metrics, %d getindom, %d insitu, %d ptr", + i, _metrics, _indom, _insitu, _ptr); + if (datasize) + printf(", mem leak: %ld Kbytes", datasize); + putchar('\n'); + _metrics = _indom = _insitu = _ptr = 0; + } + + exit(0); +} |