1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
4 * (C) 2003 by Argonne National Laboratory.
5 * See COPYRIGHT in top-level directory.
13 int main( int argc, char *argv[] )
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 char value[MPI_MAX_INFO_VAL];
23 MTest_Init( &argc, &argv );
25 MPI_Info_create( &info );
26 /* Use only named keys incase the info implementation only supports
27 the predefined keys (e.g., IBM) */
28 for (i=0; i<NKEYS; i++) {
29 MPI_Info_set( info, keys[i], values[i] );
32 /* Check that all values are present */
33 for (i=0; i<NKEYS; i++) {
34 MPI_Info_get_valuelen( info, keys[i], &vallen, &flag );
37 printf( "get_valuelen failed for valid key %s\n", keys[i] );
39 MPI_Info_get( info, keys[i], MPI_MAX_INFO_VAL, value, &flag );
42 printf( "No value for key %s\n", keys[i] );
44 if (strcmp( value, values[i] )) {
46 printf( "Incorrect value for key %s\n", keys[i] );
48 if (strlen(value) != vallen) {
50 printf( "value_len returned %d but actual len is %d\n",
51 vallen, (int) strlen(value) );
55 MPI_Info_free( &info );
57 MTest_Finalize( errs );