derived.c File Reference

Include dependency graph for derived.c:

Go to the source code of this file.

Defines
#define	OLD_TEST_DRIVER
#define	CPP_TEST_FAIL(string, retval)   test_fail(__FILE__, __LINE__, string, retval);
#define	CPP_TEST_PASS()   { test_pass(__FILE__, NULL, 0); exit(0); }
#define	CPP_TEST_SKIP()   { test_skip(__FILE__,__LINE__,NULL,0); exit(0); }
#define	EVENTSLEN   2
#define	QUIETPRINTF   if (!TESTS_QUIET) printf
Functions
int	main (int argc, char **argv)
Variables
unsigned int	PAPI_events [2] = { 0, 0 }
static const int	PAPI_events_len = 1
int	TESTS_QUIET

---

Define Documentation

#define CPP_TEST_FAIL	(		string,
			retval
	)		test_fail(__FILE__, __LINE__, string, retval);

Definition at line 8 of file derived.c.

#define CPP_TEST_PASS

(

)

{ test_pass(__FILE__, NULL, 0); exit(0); }

Definition at line 9 of file derived.c.

#define CPP_TEST_SKIP

(

)

{ test_skip(__FILE__,__LINE__,NULL,0); exit(0); }

Definition at line 10 of file derived.c.

#define EVENTSLEN   2

Definition at line 17 of file derived.c.

#define OLD_TEST_DRIVER

Definition at line 5 of file derived.c.

#define QUIETPRINTF   if (!TESTS_QUIET) printf

Definition at line 19 of file derived.c.

---

Function Documentation

int main	(	int	argc,
		char **	argv
	)

Definition at line 25 of file derived.c.

{
    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];

/*#if !defined(i386) || !defined(linux)
   CPP_TEST_SKIP();
#endif
*/
    tests_quiet( argc, argv );  /* Set TESTS_QUIET variable */

    retval = PAPI_library_init( PAPI_VER_CURRENT );
    if ( retval != PAPI_VER_CURRENT )
        test_fail( __FILE__, __LINE__, "PAPI_library_init", retval );

    QUIETPRINTF( "Test case %s: start, stop with a derived counter.\n",
                 __FILE__ );
    QUIETPRINTF( "------------------------------------------------\n" );
    tmp = PAPI_get_opt( PAPI_DEFDOM, NULL );
    QUIETPRINTF( "Default domain is: %d (%s)\n", tmp,
                 stringify_all_domains( tmp ) );
    tmp = PAPI_get_opt( PAPI_DEFGRN, NULL );
    QUIETPRINTF( "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 )
        CPP_TEST_SKIP(  );

    retval = PAPI_create_eventset( &EventSet );
    if ( retval != PAPI_OK )
        CPP_TEST_FAIL( "PAPI_create_eventset", retval );

    for ( i = 0; i < PAPI_events_len; i++ ) {
        PAPI_event_code_to_name( ( int ) PAPI_events[i], event_name );
        if ( !TESTS_QUIET )
            QUIETPRINTF( "Adding %s\n", event_name );
        retval = PAPI_add_event( EventSet, ( int ) PAPI_events[i] );
        if ( retval != PAPI_OK )
            CPP_TEST_FAIL( "PAPI_add_event", retval );
    }

    retval = PAPI_start( EventSet );
    if ( retval != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_start", retval );

    QUIETPRINTF( "Running do_stuff().\n" );

    do_stuff(  );

    retval = PAPI_stop( EventSet, &values );
    if ( retval != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_stop", retval );

    sprintf( add_event_str, "%-12s : \t", event_name );
    QUIETPRINTF( TAB1, add_event_str, values );
    QUIETPRINTF( "------------------------------------------------\n" );

    retval = PAPI_cleanup_eventset( EventSet ); /* JT */
    if ( retval != PAPI_OK )
        CPP_TEST_FAIL( "PAPI_cleanup_eventset", retval );

    retval = PAPI_destroy_eventset( &EventSet );
    if ( retval != PAPI_OK )
        CPP_TEST_FAIL( "PAPI_cleanup_eventset", retval );

#ifndef OLD_TEST_DRIVER
    PAPI_shutdown(  );
#endif

    QUIETPRINTF( "Verification: Does it produce a non-zero value?\n" );

    if ( values != 0 ) {
        QUIETPRINTF( "Yes: " );
        QUIETPRINTF( LLDFMT, values );
        QUIETPRINTF( "\n" );
    }

    CPP_TEST_PASS(  );
}

Here is the call graph for this function:

---

Variable Documentation

unsigned int PAPI_events[2] = { 0, 0 }

Definition at line 20 of file derived.c.

const int PAPI_events_len = 1 [static]

Definition at line 21 of file derived.c.

int TESTS_QUIET

Definition at line 11 of file test_utils.c.