/*

 * This file tests uncore events on perf_event kernels

 *

 * In this test we use the :cpu=0 way of attaching to the CPU

 * rather than the legacy PAPI way.

 */

#include <stdio.h>

#include "papi.h"

#include "papi_test.h"

#include "do_loops.h"

#include "perf_event_uncore_lib.h"

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

	int retval,quiet;

	int EventSet = PAPI_NULL;

	long long values[1];

	char *uncore_event=NULL;

	char event_name[BUFSIZ];

	int uncore_cidx=-1;

	const PAPI_component_info_t *info;

	/* Set TESTS_QUIET variable */

	quiet = tests_quiet( argc, argv );

	if (!quiet) {

		printf("Testing the :cpu=0 way of attaching an uncore event to a core\n");

	}

	/* Init the PAPI library */

	retval = PAPI_library_init( PAPI_VER_CURRENT );

	if ( retval != PAPI_VER_CURRENT ) {

		test_fail( __FILE__, __LINE__, "PAPI_library_init", retval );

	}

	/* Find the uncore PMU */

	uncore_cidx=PAPI_get_component_index("perf_event_uncore");

	if (uncore_cidx<0) {

		if (!quiet) {

			printf("perf_event_uncore component not found\n");

		}

		test_skip(__FILE__,__LINE__,"perf_event_uncore component not found",0);

	}

	/* Check if component disabled */

	info=PAPI_get_component_info(uncore_cidx);

	if (info->disabled) {

		if (!quiet) {

			printf("perf_event_uncore component is disabled\n");

		}

		test_skip(__FILE__,__LINE__,"uncore component disabled",0);

	}

	/* Get a relevant event name */

	uncore_event=get_uncore_event(event_name, BUFSIZ);

	if (uncore_event==NULL) {

		if (!quiet) {

			printf("uncore event name not available\n");

		}

		test_skip( __FILE__, __LINE__,

			"PAPI does not support uncore on this processor",

			PAPI_ENOSUPP );

	}

	sprintf(uncore_event,"%s:cpu=0",uncore_event);

	/* Create an eventset */

	retval = PAPI_create_eventset(&EventSet);

	if (retval != PAPI_OK) {

		test_fail(__FILE__, __LINE__, "PAPI_create_eventset",retval);

	}

	/* Add our uncore event */

	retval = PAPI_add_named_event(EventSet, uncore_event);

	if (retval != PAPI_OK) {

		if ( !quiet ) {

			printf("Error trying to use event %s\n", uncore_event);

		}

		test_fail(__FILE__, __LINE__, "adding uncore event",retval);

	}

	/* Start PAPI */

	retval = PAPI_start( EventSet );

	if ( retval != PAPI_OK ) {

		test_fail( __FILE__, __LINE__, "PAPI_start", retval );

	}

	/* our work code */

	do_flops( NUM_FLOPS );

	/* Stop PAPI */

	retval = PAPI_stop( EventSet, values );

	if ( retval != PAPI_OK ) {

		test_fail( __FILE__, __LINE__, "PAPI_stop", retval );

	}

	if ( !quiet ) {

		printf("\tUsing event %s\n",uncore_event);

		printf("\t%s: %lld\n",uncore_event,values[0]);

	}

	test_pass( __FILE__ );

	return 0;

}