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)
Variables
int	TESTS_QUIET

---

Function Documentation

int main	(	int	argc,
		char **	argv
	)

Definition at line 22 of file describe.c.

{
    int EventSet = PAPI_NULL;
    int retval;
    long long g1[2];
    int eventcode = PAPI_TOT_INS;
    char eventname[PAPI_MAX_STR_LEN];
    PAPI_event_info_t info, info1, info2;

    tests_quiet( argc, argv );  /* Set TESTS_QUIET variable */

    if ( ( retval =
           PAPI_library_init( PAPI_VER_CURRENT ) ) != 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 )
        test_fail( __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 */
    eventname[0] = '\0';
    eventcode = 0;
/*
   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, &info ) ) == PAPI_OK )
        test_fail( __FILE__, __LINE__, "PAPI_get_event_info", retval );

    /* Case 1, fill in name field. */
    eventcode = PAPI_TOT_INS;
    eventname[0] = '\0';
/*
   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);    
*/
    strcpy( eventname, info1.symbol );
    if ( ( retval =
           PAPI_event_name_to_code( eventname,
                                    ( 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__, NULL, 0 );
    exit( 1 );
}

Here is the call graph for this function:

---

Variable Documentation

int TESTS_QUIET

Definition at line 11 of file test_utils.c.