1
1
openmpi/test/mca/smr/smr_dt_print.c
Ralph Castain 8c7f0ed9ae Change the SOH to the new State Monitoring and Reporting (SMR) framework. New API's will be appearing in the new framework shortly - this just gets the name change into the system.
Other changes:

1. Remove the old xcpu components as they are not functional.

2. Fix a "bug" in orterun whereby we called dump_aborted_procs even when we normally terminated. There is still some kind of bug in this procedure, however, as we appear to be calling the orterun job_state_callback function every time a process terminates (instead of only once when they have all terminated). I'll continue digging into that one.

This will require an autogen/configure, I'm afraid.

This commit was SVN r11228.
2006-08-16 16:35:09 +00:00

191 строка
5.3 KiB
C

/*
* Copyright (c) 2004-2005 The Trustees of Indiana University.
* All rights reserved.
* Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
* All rights reserved.
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
* University of Stuttgart. All rights reserved.
* Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
/** @file:
*
* The Open MPI general purpose registry - unit test
*
*/
/*
* includes
*/
#include "orte_config.h"
#include <stdio.h>
#include <string.h>
#include "orte/orte_constants.h"
#include "opal/mca/base/base.h"
#include "opal/runtime/opal.h"
#include "opal/util/malloc.h"
#include "opal/util/output.h"
#include "orte/class/orte_pointer_array.h"
#include "orte/dss/dss.h"
#include "orte/util/proc_info.h"
#include "orte/mca/errmgr/errmgr.h"
#include "orte/mca/soh/base/base.h"
#define NUM_ITERS 3
#define NUM_ELEMS 10
static bool test_unstruct(void); /* size */
int main(int argc, char **argv)
{
int ret;
opal_init();
/* register handler for errnum -> string converstion */
opal_error_register("ORTE", ORTE_ERR_BASE, ORTE_ERR_MAX, orte_err2str);
/* Ensure the process info structure is instantiated and initialized */
if (ORTE_SUCCESS != (ret = orte_proc_info())) {
return ret;
}
orte_process_info.seed = true;
orte_process_info.my_name = (orte_process_name_t*)malloc(sizeof(orte_process_name_t));
orte_process_info.my_name->cellid = 0;
orte_process_info.my_name->jobid = 0;
orte_process_info.my_name->vpid = 0;
/* startup the MCA */
if (OPAL_SUCCESS == mca_base_open()) {
fprintf(stderr, "MCA started\n");
} else {
fprintf(stderr, "MCA could not start\n");
exit (1);
}
/* open the dss */
if (ORTE_SUCCESS == orte_dss_open()) {
fprintf(stderr, "DSS started\n");
} else {
fprintf(stderr, "DSS could not start\n");
exit (1);
}
/* startup the name service to register data types */
if (ORTE_SUCCESS == orte_soh_base_open()) {
fprintf(stderr, "SOH opened\n");
} else {
fprintf(stderr, "SOH could not open\n");
exit (1);
}
/* Now do the tests */
fprintf(stderr, "executing test_unstruct\n");
if (test_unstruct()) {
fprintf(stderr, "test_unstruct succeeded\n");
}
else {
fprintf(stderr, "test_unstruct failed\n");
}
orte_soh_base_close();
orte_dss_close();
mca_base_close();
opal_malloc_finalize();
opal_output_finalize();
opal_class_finalize();
return 0;
}
static bool test_unstruct(void)
{
int rc;
orte_exit_code_t sec;
orte_proc_state_t sps;
orte_job_state_t sjs;
orte_node_state_t sns;
char *output;
sec = 2;
sps = 125;
sjs = 117;
sns = 0x7e;
rc = orte_dss.print(&output, "dumb-prefix", &sec, ORTE_EXIT_CODE);
if (ORTE_SUCCESS != rc) {
fprintf(stderr, "orte_dss.print failed with return code %d\n", rc);
return(false);
}
fprintf(stderr, "%s\n", output);
free(output);
rc = orte_dss.print(&output, NULL, &sec, ORTE_EXIT_CODE);
if (ORTE_SUCCESS != rc) {
fprintf(stderr, "orte_dss.print failed with return code %d\n", rc);
return(false);
}
fprintf(stderr, "NULL prefix\n%s\n\n", output);
free(output);
rc = orte_dss.print(&output, "dumb-prefix", &sps, ORTE_PROC_STATE);
if (ORTE_SUCCESS != rc) {
fprintf(stderr, "orte_dss.print failed with return code %d\n", rc);
return(false);
}
fprintf(stderr, "%s\n", output);
free(output);
rc = orte_dss.print(&output, NULL, &sps, ORTE_PROC_STATE);
if (ORTE_SUCCESS != rc) {
fprintf(stderr, "orte_dss.print failed with return code %d\n", rc);
return(false);
}
fprintf(stderr, "NULL prefix\n%s\n\n", output);
free(output);
rc = orte_dss.print(&output, "dumb-prefix", &sjs, ORTE_JOB_STATE);
if (ORTE_SUCCESS != rc) {
fprintf(stderr, "orte_dss.print failed with return code %d\n", rc);
return(false);
}
fprintf(stderr, "%s\n", output);
free(output);
rc = orte_dss.print(&output, NULL, &sjs, ORTE_JOB_STATE);
if (ORTE_SUCCESS != rc) {
fprintf(stderr, "orte_dss.print failed with return code %d\n", rc);
return(false);
}
fprintf(stderr, "NULL prefix\n%s\n\n", output);
free(output);
rc = orte_dss.print(&output, "dumb-prefix", &sns, ORTE_NODE_STATE);
if (ORTE_SUCCESS != rc) {
fprintf(stderr, "orte_dss.print failed with return code %d\n", rc);
return(false);
}
fprintf(stderr, "%s\n", output);
free(output);
rc = orte_dss.print(&output, NULL, &sns, ORTE_NODE_STATE);
if (ORTE_SUCCESS != rc) {
fprintf(stderr, "orte_dss.print failed with return code %d\n", rc);
return(false);
}
fprintf(stderr, "NULL prefix\n%s\n\n", output);
free(output);
return(true);
}