teshsuite/smpi/mpich3-test/info/infovallen.c

   1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
   2 /*
   3  *
   4  *  (C) 2003 by Argonne National Laboratory.
   5  *      See COPYRIGHT in top-level directory.
   6  */
   7 #include "mpi.h"
   8 #include <stdio.h>
   9 #include <string.h>
  10 #include "mpitest.h"
  11
  12 #define NKEYS 3
  13 int main(int argc, char *argv[])
  14 {
  15     int errs = 0;
  16     MPI_Info info;
  17     char *keys[NKEYS] = { (char *) "file", (char *) "soft", (char *) "host" };
  18     char *values[NKEYS] = { (char *) "runfile.txt", (char *) "2:1000:4,3:1000:7",
  19         (char *) "myhost.myorg.org"
  20     };
  21     char value[MPI_MAX_INFO_VAL];
  22     int i, flag, vallen;
  23
  24     MTest_Init(&argc, &argv);
  25
  26     MPI_Info_create(&info);
  27     /* Use only named keys incase the info implementation only supports
  28      * the predefined keys (e.g., IBM) */
  29     for (i = 0; i < NKEYS; i++) {
  30         MPI_Info_set(info, keys[i], values[i]);
  31     }
  32
  33     /* Check that all values are present */
  34     for (i = 0; i < NKEYS; i++) {
  35         MPI_Info_get_valuelen(info, keys[i], &vallen, &flag);
  36         if (!flag) {
  37             errs++;
  38             printf("get_valuelen failed for valid key %s\n", keys[i]);
  39         }
  40         MPI_Info_get(info, keys[i], MPI_MAX_INFO_VAL, value, &flag);
  41         if (!flag) {
  42             errs++;
  43             printf("No value for key %s\n", keys[i]);
  44         }
  45         if (strcmp(value, values[i])) {
  46             errs++;
  47             printf("Incorrect value for key %s\n", keys[i]);
  48         }
  49         if (strlen(value) != vallen) {
  50             errs++;
  51             printf("value_len returned %d but actual len is %d\n", vallen, (int) strlen(value));
  52         }
  53     }
  54
  55     MPI_Info_free(&info);
  56
  57     MTest_Finalize(errs);
  58     MPI_Finalize();
  59     return 0;
  60
  61 }