openmpi/orte/test/mpi/hello_show_help.c

/* -*- C -*-
 *
 * $HEADER$
 *
 * The most basic of MPI applications
 */

#include <stdio.h>
#include "mpi.h"

#include "orte/util/output.h"

int main(int argc, char* argv[])
{
    int rank, size;
    int stream;

    MPI_Init(&argc, &argv);
    MPI_Comm_rank(MPI_COMM_WORLD, &rank);
    MPI_Comm_size(MPI_COMM_WORLD, &size);

    if (0 == rank) {
        orte_output(0, "============================================================================");
        orte_output(0, "This test ensures that the aggregation functionality of the orte_show_help\nsystem is working properly.  It outputs a bogus warning about orte_init(),\nand contains sleep statements to ensure that the timer is firiing properly\nin the HNP and aggregates messages properly.  The total sleep time is\n(3 * num_procs).  You should see:\n\n - aggregation messages from the HNP every five seconds or so\n - a total of (2 * num_procs) messages");
        orte_output(0, "============================================================================");
    }
    MPI_Barrier(MPI_COMM_WORLD);

    orte_show_help("help-orte-runtime.txt", 
                   "orte_init:startup:internal-failure", true,
                   "Nothing", "ORTE_EVERYTHING_IS_PEACHY", "42");
    sleep(rank * 3);

    orte_show_help("help-orte-runtime.txt", 
                   "orte_init:startup:internal-failure", true,
                   "Duplicate orte_show_help detection", 
                   "ORTE_SHOW_HELP_DUPLICATE_FAILED", "99999");

    MPI_Barrier(MPI_COMM_WORLD);

    if (0 == rank) {
        orte_output(0, "============================================================================");
        orte_output(0, "The test is now complete.  Please verify that the HNP output all the required\nmessages (you may see 1 or 2 more messages from the HNP after this message).");
        orte_output(0, "============================================================================");
    }
    MPI_Finalize();
    
    return 0;
}