Blame src/components/net/tests/net_list_events.c

Packit 577717
/****************************/
Packit 577717
/* THIS IS OPEN SOURCE CODE */
Packit 577717
/****************************/
Packit 577717
Packit 577717
/**
Packit 577717
 * @author  Jose Pedro Oliveira
Packit 577717
 *
Packit 577717
 * test case for the linux-net component
Packit 577717
 *
Packit 577717
 * @brief
Packit 577717
 *   List all net events codes and names
Packit 577717
 */
Packit 577717
Packit 577717
#include <stdio.h>
Packit 577717
#include <stdlib.h>
Packit 577717
#include <string.h>
Packit 577717
Packit 577717
#include "papi.h"
Packit 577717
#include "papi_test.h"
Packit 577717
Packit 577717
int main (int argc, char **argv)
Packit 577717
{
Packit 577717
    int retval,cid,numcmp;
Packit 577717
    int total_events=0;
Packit 577717
    int code;
Packit 577717
    char event_name[PAPI_MAX_STR_LEN];
Packit 577717
    int r;
Packit 577717
    const PAPI_component_info_t *cmpinfo = NULL;
Packit 577717
Packit 577717
    /* Set TESTS_QUIET variable */
Packit 577717
    tests_quiet( argc, argv );
Packit 577717
Packit 577717
    /* PAPI Initialization */
Packit 577717
    retval = PAPI_library_init( PAPI_VER_CURRENT );
Packit 577717
    if ( retval != PAPI_VER_CURRENT ) {
Packit 577717
        test_fail(__FILE__, __LINE__,"PAPI_library_init failed\n",retval);
Packit 577717
    }
Packit 577717
Packit 577717
    if (!TESTS_QUIET) {
Packit 577717
        printf("Listing all net events\n");
Packit 577717
    }
Packit 577717
Packit 577717
    numcmp = PAPI_num_components();
Packit 577717
Packit 577717
    for(cid=0; cid
Packit 577717
Packit 577717
        if ( (cmpinfo = PAPI_get_component_info(cid)) == NULL) {
Packit 577717
            test_fail(__FILE__, __LINE__,"PAPI_get_component_info failed\n",-1);
Packit 577717
        }
Packit 577717
Packit 577717
        if ( strstr(cmpinfo->name, "net") == NULL) {
Packit 577717
            continue;
Packit 577717
        }
Packit 577717
Packit 577717
        if (!TESTS_QUIET) {
Packit 577717
            printf("Component %d (%d) - %d events - %s\n",
Packit 577717
                cid, cmpinfo->CmpIdx,
Packit 577717
                cmpinfo->num_native_events, cmpinfo->name);
Packit 577717
        }
Packit 577717
Packit 577717
        code = PAPI_NATIVE_MASK;
Packit 577717
Packit 577717
        r = PAPI_enum_cmp_event( &code, PAPI_ENUM_FIRST, cid );
Packit 577717
        while ( r == PAPI_OK ) {
Packit 577717
Packit 577717
            retval = PAPI_event_code_to_name( code, event_name );
Packit 577717
            if ( retval != PAPI_OK ) {
Packit 577717
                test_fail( __FILE__, __LINE__, "PAPI_event_code_to_name", retval );
Packit 577717
            }
Packit 577717
Packit 577717
            if (!TESTS_QUIET) {
Packit 577717
                printf("%#x %s\n", code, event_name);
Packit 577717
            }
Packit 577717
Packit 577717
            total_events++;
Packit 577717
Packit 577717
            r = PAPI_enum_cmp_event( &code, PAPI_ENUM_EVENTS, cid );
Packit 577717
        }
Packit 577717
Packit 577717
    }
Packit 577717
Packit 577717
    if (total_events==0) {
Packit 577717
        test_skip(__FILE__,__LINE__,"No net events found", 0);
Packit 577717
    }
Packit 577717
Packit 577717
    test_pass( __FILE__ );
Packit 577717
Packit 577717
    return 0;
Packit 577717
}
Packit 577717
Packit 577717
// vim:set ai ts=4 sw=4 sts=4 et: