1
1

regression test for r29285 (convertor_set_position)

This commit was SVN r29296.

The following SVN revision numbers were found above:
  r29285 --> open-mpi/ompi@43b4d76913
Этот коммит содержится в:
Dave Goodell 2013-09-30 16:21:19 +00:00
родитель b84863be20
Коммит 002ba95deb
2 изменённых файлов: 253 добавлений и 1 удалений

Просмотреть файл

@ -12,7 +12,7 @@
#
if PROJECT_OMPI
MPI_TESTS = checksum position ddt_test ddt_raw
MPI_TESTS = checksum position position_noncontig ddt_test ddt_raw
MPI_CHECKS = to_self ddt_pack
endif
TESTS = opal_datatype_test $(MPI_TESTS)
@ -39,6 +39,10 @@ position_SOURCES = position.c
position_LDFLAGS = $(WRAPPER_EXTRA_LDFLAGS)
position_LDADD = $(top_builddir)/ompi/libmpi.la
position_noncontig_SOURCES = position_noncontig.c
position_noncontig_LDFLAGS = $(WRAPPER_EXTRA_LDFLAGS)
position_noncontig_LDADD = $(top_builddir)/ompi/libmpi.la
to_self_SOURCES = to_self.c
to_self_LDFLAGS = $(WRAPPER_EXTRA_LDFLAGS)
to_self_LDADD = $(top_builddir)/ompi/libmpi.la

248
test/datatype/position_noncontig.c Обычный файл
Просмотреть файл

@ -0,0 +1,248 @@
/* -*- Mode: C; c-basic-offset:4 ; -*- */
/*
* Copyright (c) 2004-2007 The University of Tennessee and The University
* of Tennessee Research Foundation. All rights
* reserved.
* Copyright (c) 2011-2013 Cisco Systems, Inc. All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
#include "ompi_config.h"
#include <stdio.h>
#include <string.h>
#include "opal/datatype/opal_convertor.h"
#include "ompi/datatype/ompi_datatype.h"
#include "opal/util/output.h"
/**
* The purpose of this test is to simulate the multi-network packing and
* unpacking process. The pack operation will happens in-order while the
* will be done randomly. Therefore, before each unpack the correct
* position in the user buffer has to be set.
*/
static int fragment_size = 113;
typedef struct {
size_t position;
size_t size;
void* buffer;
} ddt_segment_t;
static int
create_segments( ompi_datatype_t* datatype, int count,
size_t segment_length,
ddt_segment_t** segments, int* seg_count )
{
size_t data_size, total_length, position;
opal_convertor_t* convertor;
int i;
ddt_segment_t* segment;
ompi_datatype_type_size( datatype, &data_size );
data_size *= count;
*seg_count = data_size / segment_length;
if( ((*seg_count) * segment_length) != data_size )
*seg_count += 1;
allocate_segments:
*segments = (ddt_segment_t*)malloc( (*seg_count) * sizeof(ddt_segment_t) );
convertor = opal_convertor_create( opal_local_arch, 0 );
opal_convertor_prepare_for_send( convertor, &(datatype->super), count, NULL );
position = 0;
total_length = 0;
for( i = 0; i < (*seg_count); i++ ) {
segment = &((*segments)[i]);
segment->buffer = malloc(segment_length);
segment->position = position;
/* Find the end of the segment */
position += segment_length;
opal_convertor_set_position( convertor, &position );
segment->size = position - segment->position;
total_length += segment->size;
}
OBJ_RELEASE(convertor);
if( total_length != data_size ) {
for( i = 0; i < (*seg_count); i++ ) {
segment = &((*segments)[i]);
free(segment->buffer);
}
free( *segments );
(*seg_count) += 1;
goto allocate_segments;
}
return 0;
}
static int
shuffle_segments( ddt_segment_t* segments, int seg_count )
{
ddt_segment_t temporary;
int i;
for( i = 0; i < (seg_count/2); i += 2 ) {
temporary = segments[i];
segments[i] = segments[seg_count - i - 1];
segments[seg_count - i - 1] = temporary;
}
return 0;
}
static int
pack_segments( ompi_datatype_t* datatype, int count,
size_t segment_size,
ddt_segment_t* segments, int seg_count,
void* buffer )
{
size_t max_size, position;
opal_convertor_t* convertor;
struct iovec iov;
int i;
uint32_t iov_count;
convertor = opal_convertor_create( opal_local_arch, 0 );
opal_convertor_prepare_for_send( convertor, &(datatype->super), count, buffer );
for( i = 0; i < seg_count; i++ ) {
iov.iov_len = segments[i].size;
iov.iov_base = segments[i].buffer;
max_size = iov.iov_len;
position = segments[i].position;
opal_convertor_set_position( convertor, &position );
if( position != segments[i].position ) {
opal_output( 0, "Setting position failed (%lu != %lu)\n",
(unsigned long)segments[i].position, (unsigned long)position );
break;
}
iov_count = 1;
opal_convertor_pack( convertor, &iov, &iov_count, &max_size );
if( max_size != segments[i].size ) {
opal_output( 0, "Amount of packed data do not match (%lu != %lu)\n",
(unsigned long)max_size, (unsigned long)segments[i].size );
opal_output( 0, "Segment %d position %lu size %lu\n", i,
(unsigned long)segments[i].position, segments[i].size );
}
}
OBJ_RELEASE(convertor);
return i;
}
static int
unpack_segments( ompi_datatype_t* datatype, int count,
size_t segment_size,
ddt_segment_t* segments, int seg_count,
void* buffer )
{
opal_convertor_t* convertor;
size_t max_size, position;
int i;
uint32_t iov_count;
struct iovec iov;
convertor = opal_convertor_create( opal_local_arch, 0 );
opal_convertor_prepare_for_recv( convertor, &(datatype->super), count, buffer );
for( i = 0; i < seg_count; i++ ) {
iov.iov_len = segments[i].size;
iov.iov_base = segments[i].buffer;
max_size = iov.iov_len;
position = segments[i].position;
opal_convertor_set_position( convertor, &position );
if( position != segments[i].position ) {
opal_output( 0, "Setting position failed (%lu != %lu)\n",
(unsigned long)segments[i].position, (unsigned long)position );
break;
}
iov_count = 1;
opal_convertor_unpack( convertor, &iov, &iov_count, &max_size );
if( max_size != segments[i].size ) {
opal_output( 0, "Amount of unpacked data do not match (%lu != %lu)\n",
(unsigned long)max_size, (unsigned long)segments[i].size );
opal_output( 0, "Segment %d position %lu size %lu\n", i,
(unsigned long)segments[i].position, segments[i].size );
}
}
OBJ_RELEASE(convertor);
return 0;
}
#if (OPAL_ENABLE_DEBUG == 1) && (OPAL_C_HAVE_VISIBILITY == 0)
extern int opal_unpack_debug;
extern int opal_pack_debug;
extern int opal_position_debug ;
#endif /* OPAL_ENABLE_DEBUG */
int main( int argc, char* argv[] )
{
ddt_segment_t* segments;
int *send_buffer, *recv_buffer;
int i, seg_count, errors;
int show_only_first_error = 1;
ompi_datatype_t* datatype = MPI_DATATYPE_NULL;
#define NELT (300)
send_buffer = malloc(NELT*sizeof(int));
recv_buffer = malloc(NELT*sizeof(int));
for (i = 0; i < NELT; ++i) {
send_buffer[i] = i;
recv_buffer[i] = 0xdeadbeef;
}
opal_datatype_init();
ompi_datatype_init();
ompi_datatype_create_vector(NELT/2, 1, 2, MPI_INT, &datatype);
ompi_datatype_commit(&datatype);
#if (OPAL_ENABLE_DEBUG == 1) && (OPAL_C_HAVE_VISIBILITY == 0)
opal_unpack_debug = 0;
opal_pack_debug = 0;
opal_position_debug = 0;
#endif /* OPAL_ENABLE_DEBUG */
create_segments( datatype, 1, fragment_size,
&segments, &seg_count );
/* shuffle the segments */
shuffle_segments( segments, seg_count );
/* pack the data */
pack_segments( datatype, 1, fragment_size, segments, seg_count,
send_buffer );
/* unpack the data back in the user space (recv buffer) */
unpack_segments( datatype, 1, fragment_size, segments, seg_count,
recv_buffer );
/* And now check the data */
for( errors = i = 0; i < NELT; i++ ) {
int expected = ((i % 2) ? (int)0xdeadbeef : i);
if (recv_buffer[i] != expected) {
if( (show_only_first_error && (0 == errors)) ||
!show_only_first_error ) {
printf("error at index %4d: 0x%08x != 0x%08x\n", i, recv_buffer[i], expected);
}
errors++;
}
}
printf( "Found %d errors\n", errors );
free(send_buffer); free(recv_buffer);
for( i = 0; i < seg_count; i++ ) {
free( segments[i].buffer );
}
free(segments);
ompi_datatype_finalize();
return (0 == errors ? 0 : -1);
}