/* This file performs the following test: start, stop with a derived event */
#include <stdio.h>
#include <stdlib.h>
#include "papi.h"
#include "papi_test.h"
#include "do_loops.h"
#define EVENTSLEN 2
unsigned int PAPI_events[EVENTSLEN] = { 0, 0 };
static const int PAPI_events_len = 1;
int
main( int argc, char **argv )
{
int retval, tmp;
int EventSet = PAPI_NULL;
int i;
PAPI_event_info_t info;
long long values;
char event_name[PAPI_MAX_STR_LEN], add_event_str[PAPI_MAX_STR_LEN];
int quiet=0;
/* Set TESTS_QUIET variable */
quiet=tests_quiet( argc, argv );
retval = PAPI_library_init( PAPI_VER_CURRENT );
if ( retval != PAPI_VER_CURRENT ) {
test_fail( __FILE__, __LINE__, "PAPI_library_init", retval );
}
if (!quiet) {
printf( "Test case %s: start, stop with a derived counter.\n",
__FILE__ );
printf( "------------------------------------------------\n" );
tmp = PAPI_get_opt( PAPI_DEFDOM, NULL );
printf( "Default domain is: %d (%s)\n", tmp,
stringify_all_domains( tmp ) );
tmp = PAPI_get_opt( PAPI_DEFGRN, NULL );
printf( "Default granularity is: %d (%s)\n\n", tmp,
stringify_granularity( tmp ) );
}
i = PAPI_PRESET_MASK;
do {
if ( PAPI_get_event_info( i, &info ) == PAPI_OK ) {
if ( info.count > 1 ) {
PAPI_events[0] = ( unsigned int ) info.event_code;
break;
}
}
} while ( PAPI_enum_event( &i, 0 ) == PAPI_OK );
if ( PAPI_events[0] == 0 ) {
test_skip(__FILE__, __LINE__, "No events found", 0);
}
retval = PAPI_create_eventset( &EventSet );
if ( retval != PAPI_OK ) {
test_fail(__FILE__, __LINE__, "PAPI_create_eventset", retval );
}
for ( i = 0; i < PAPI_events_len; i++ ) {
PAPI_event_code_to_name( ( int ) PAPI_events[i], event_name );
if ( !quiet ) {
printf( "Adding %s\n", event_name );
}
retval = PAPI_add_event( EventSet, ( int ) PAPI_events[i] );
if ( retval != PAPI_OK ) {
test_fail(__FILE__, __LINE__, "PAPI_add_event", retval );
}
}
retval = PAPI_start( EventSet );
if ( retval != PAPI_OK ) {
test_fail( __FILE__, __LINE__, "PAPI_start", retval );
}
if (!quiet) printf( "Running do_stuff().\n" );
do_stuff( );
retval = PAPI_stop( EventSet, &values );
if ( retval != PAPI_OK ) {
test_fail( __FILE__, __LINE__, "PAPI_stop", retval );
}
if (!quiet) {
sprintf( add_event_str, "%-12s : \t", event_name );
printf( TAB1, add_event_str, values );
printf( "------------------------------------------------\n" );
}
retval = PAPI_cleanup_eventset( EventSet ); /* JT */
if ( retval != PAPI_OK ) {
test_fail(__FILE__,__LINE__, "PAPI_cleanup_eventset", retval );
}
retval = PAPI_destroy_eventset( &EventSet );
if ( retval != PAPI_OK ) {
test_fail(__FILE__,__LINE__, "PAPI_cleanup_eventset", retval );
}
if (!quiet) printf( "Verification: Does it produce a non-zero value?\n" );
if ( values != 0 ) {
if (!quiet) {
printf( "Yes: " );
printf( LLDFMT, values );
printf( "\n" );
}
}
else {
test_fail(__FILE__,__LINE__, "Validation", 1 );
}
test_pass(__FILE__);
return 0;
}