123 строки
3.2 KiB
C
123 строки
3.2 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$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
/** @file:
|
|
*
|
|
* parse_context - unit test
|
|
*
|
|
*/
|
|
|
|
/*
|
|
* includes
|
|
*/
|
|
|
|
#include "orte_config.h"
|
|
|
|
#include "support.h"
|
|
|
|
#include "util/cmd_line.h"
|
|
#include "mca/base/base.h"
|
|
#include "mca/base/mca_base_param.h"
|
|
|
|
#include "runtime/runtime.h"
|
|
|
|
/* output files needed by the test */
|
|
static FILE *test_out=NULL;
|
|
|
|
static char *cmd_str="diff ./test_parse_context_out ./test_parse_context_out_std";
|
|
|
|
void context_test(void *value, int instance, int param);
|
|
|
|
bool context_help;
|
|
|
|
orte_context_value_names_t test_context_tbl[] = {
|
|
/* start with usual help and version stuff */
|
|
{{NULL, NULL, NULL}, "dummy", 2, ORTE_INT, (void*)&context_help, (void*)false, context_test},
|
|
{{NULL, NULL, NULL}, NULL, 0, ORTE_NULL, NULL, NULL, NULL} /* terminate the table */
|
|
};
|
|
|
|
int main(int argc, char **argv)
|
|
{
|
|
int ret;
|
|
ompi_cmd_line_t *cmd_line;
|
|
|
|
test_init("test_gpr_replica");
|
|
|
|
/* test_out = fopen( "test_parse_context_out", "w+" ); */
|
|
test_out = stderr;
|
|
if( test_out == NULL ) {
|
|
test_failure("parse_context_test couldn't open test file failed");
|
|
test_finalize();
|
|
exit(1);
|
|
}
|
|
|
|
cmd_line = OBJ_NEW(ompi_cmd_line_t);
|
|
|
|
ompi_init(argc, argv);
|
|
|
|
/* startup the MCA */
|
|
if (OMPI_SUCCESS == mca_base_open()) {
|
|
fprintf(test_out, "MCA started\n");
|
|
} else {
|
|
fprintf(test_out, "MCA could not start\n");
|
|
exit (1);
|
|
}
|
|
|
|
/*
|
|
* setup mca command line arguments
|
|
*/
|
|
if (OMPI_SUCCESS != (ret = mca_base_cmd_line_setup(cmd_line))) {
|
|
fprintf(test_out, "mca_cmd_line_setup: failed\n");
|
|
exit (ret);
|
|
}
|
|
|
|
if (OMPI_SUCCESS != mca_base_cmd_line_process_args(cmd_line)) {
|
|
fprintf(test_out, "mca_cmd_line_process_args: failed\n");
|
|
exit (ret);
|
|
}
|
|
|
|
/* parse the cmd line */
|
|
if (OMPI_SUCCESS != ompi_cmd_line_parse(cmd_line, true, argc, argv)) {
|
|
fprintf(test_out, "cmd_line_parse: failed\n");
|
|
exit(1);
|
|
}
|
|
|
|
/* set some MCA parameters in environment */
|
|
setenv("OMPI_MCA_seed", "0", 1);
|
|
setenv("OMPI_MCA_ns_replica_uri", "ding-dong", 1);
|
|
if (ORTE_SUCCESS != orte_parse_proc_context(cmd_line, argc, argv)) {
|
|
fprintf(test_out, "parse_proc_context: failed\n");
|
|
exit(1);
|
|
}
|
|
|
|
fprintf(test_out, "seed flag %d\n", (int)orte_process_info.seed);
|
|
fprintf(test_out, "nsreplica %s\n", orte_process_info.ns_replica_uri);
|
|
|
|
/* parse test context */
|
|
if (ORTE_SUCCESS != orte_parse_context(test_context_tbl, cmd_line, argc, argv)) {
|
|
fprintf(test_out, "parse test context tbl failed\n");
|
|
exit(1);
|
|
}
|
|
|
|
test_finalize();
|
|
|
|
return(0);
|
|
}
|
|
|
|
void context_test(void *value, int instance, int param)
|
|
{
|
|
fprintf(test_out, "context callback function called\n");
|
|
fprintf(test_out, "\tvalue %d instance %d param %d\n", *((int*)value),
|
|
instance, param);
|
|
}
|