describe.c File Reference

Include dependency graph for describe.c:

Go to the source code of this file.

Functions
int	main (int argc, char **argv)

Function Documentation

main()

int main	(	int	argc,
		char **	argv
	)

Definition at line 25 of file describe.c.

{
    int EventSet = PAPI_NULL;
    int retval;
    long long g1[2];
    int eventcode = PAPI_TOT_INS;
    PAPI_event_info_t info, info1, info2;
    int quiet;
 
    /* 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 ( ( retval = PAPI_create_eventset( &EventSet ) ) != PAPI_OK ) {
        test_fail( __FILE__, __LINE__, "PAPI_create_eventset", retval );
    }
 
    if ( ( retval = PAPI_query_event( eventcode ) ) != PAPI_OK ) {
        if (!quiet) printf("Trouble checking event\n");
        test_skip( __FILE__, __LINE__, "PAPI_query_event(PAPI_TOT_INS)",
                   retval );
    }
 
    if ( ( retval = PAPI_add_event( EventSet, eventcode ) ) != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_add_event(PAPI_TOT_INS)", retval );
 
    if ( ( retval = PAPI_start( EventSet ) ) != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_start", retval );
 
    if ( ( retval = PAPI_stop( EventSet, g1 ) ) != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_stop", retval );
 
    /* Case 0, no info, should fail */
    eventcode = 0;
/*
   if ( ( retval = PAPI_describe_event(eventname,(int *)&eventcode,eventdesc) ) == PAPI_OK)
     test_fail(__FILE__,__LINE__,"PAPI_describe_event",retval);
*/
    if (!quiet) {
        printf("This test expects a 'PAPI Error' to be returned from this PAPI call.\n");
    }
    if ( ( retval = PAPI_get_event_info( eventcode, &info ) ) == PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_get_event_info", retval );
 
    /* Case 1, fill in name field. */
    eventcode = PAPI_TOT_INS;
/*
   if ( ( retval = PAPI_describe_event(eventname,(int *)&eventcode,eventdesc) ) != PAPI_OK)
     test_fail(__FILE__,__LINE__,"PAPI_describe_event",retval);
*/
    if ( ( retval = PAPI_get_event_info( eventcode, &info1 ) ) != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_get_event_info", retval );
 
    if ( strcmp( info1.symbol, "PAPI_TOT_INS" ) != 0 )
        test_fail( __FILE__, __LINE__,
                   "PAPI_get_event_info symbol value is bogus", retval );
    if ( strlen( info1.long_descr ) == 0 )
        test_fail( __FILE__, __LINE__,
                   "PAPI_get_event_info long_descr value is bogus", retval );
 
    eventcode = 0;
 
    /* Case 2, fill in code field. */
/*
   if ( ( retval = PAPI_describe_event(eventname,(int *)&eventcode,eventdesc) ) != PAPI_OK)
     test_fail(__FILE__,__LINE__,"PAPI_describe_event",retval);
*/
    if ( ( retval = PAPI_event_name_to_code( info1.symbol, ( int * ) &eventcode ) ) != PAPI_OK ) {
        test_fail( __FILE__, __LINE__, "PAPI_event_name_to_code", retval );
    }
 
    if ( eventcode != PAPI_TOT_INS )
        test_fail( __FILE__, __LINE__,
                   "PAPI_event_name_to_code code value is bogus", retval );
 
    if ( ( retval = PAPI_get_event_info( eventcode, &info2 ) ) != PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_get_event_info", retval );
 
    if ( strcmp( info2.symbol, "PAPI_TOT_INS" ) != 0 )
        test_fail( __FILE__, __LINE__,
                   "PAPI_get_event_info symbol value is bogus", retval );
    if ( strlen( info2.long_descr ) == 0 )
        test_fail( __FILE__, __LINE__,
                   "PAPI_get_event_info long_descr value is bogus", retval );
 
    test_pass( __FILE__ );
 
    return 0;
}

Here is the call graph for this function: