PAPI 7.1.0.0
Loading...
Searching...
No Matches
destroy.c
Go to the documentation of this file.
1/* destroy.c */
2
3/* Test that PAPI_destroy_eventset() doesn't leak file descriptors */
4
5/* Run create/add/start/stop/remove/destroy in a large loop */
6/* and make sure PAPI handles it OK */
7
8#include <stdio.h>
9#include <stdlib.h>
10
11#include "papi.h"
12#include "papi_test.h"
13
14#include "testcode.h"
15
16#define NUM_EVENTS 1
17#define NUM_LOOPS 16384
18
19int main( int argc, char **argv ) {
20
21 int retval, i;
22 int EventSet1 = PAPI_NULL;
23 long long values[NUM_EVENTS];
24 int quiet=0;
25
26 /* Set TESTS_QUIET variable */
27 quiet=tests_quiet( argc, argv );
28
29 /* Init the PAPI library */
30 retval = PAPI_library_init( PAPI_VER_CURRENT );
31 if ( retval != PAPI_VER_CURRENT ) {
32 test_fail( __FILE__, __LINE__, "PAPI_library_init", retval );
33 }
34
35 if (!quiet) {
36 printf("Testing to make sure we can destroy eventsets\n");
37 }
38
39 for(i=0;i<NUM_LOOPS;i++) {
40
41 /* Initialize the EventSet */
42 retval=PAPI_create_eventset(&EventSet1);
43 if (retval!=PAPI_OK) {
44 test_fail( __FILE__, __LINE__,
45 "PAPI_create_eventset", retval );
46 }
47
48 /* Add PAPI_TOT_CYC */
49 retval=PAPI_add_named_event(EventSet1,"PAPI_TOT_CYC");
50 if (retval!=PAPI_OK) {
51 if (!quiet) {
52 printf("Trouble adding PAPI_TOT_CYC: %s\n",
53 PAPI_strerror(retval));
54 }
55 test_fail( __FILE__, __LINE__,
56 "adding PAPI_TOT_CYC", retval );
57 }
58
59 /* Start PAPI */
60 retval = PAPI_start( EventSet1 );
61 if ( retval != PAPI_OK ) {
62 test_fail( __FILE__, __LINE__, "PAPI_start", retval );
63 }
64
65 /* Stop PAPI */
66 retval = PAPI_stop( EventSet1, values );
67 if ( retval != PAPI_OK ) {
68 test_fail( __FILE__, __LINE__, "PAPI_stop", retval );
69 }
70
71 /* Shutdown the EventSet */
72 retval = PAPI_remove_named_event( EventSet1, "PAPI_TOT_CYC" );
73 if (retval!=PAPI_OK) {
74 test_fail( __FILE__, __LINE__,
75 "PAPI_remove_named_event", retval );
76 }
77
78 retval=PAPI_destroy_eventset( &EventSet1 );
79 if (retval!=PAPI_OK) {
80 test_fail( __FILE__, __LINE__,
81 "PAPI_destroy_eventset", retval );
82 }
83
84 }
85
86 test_pass( __FILE__ );
87
88 return 0;
89}
i
int i
Definition: PAPI_get_virt_cyc.c:10
PAPI_add_named_event
add PAPI preset or native hardware event by name to an EventSet
PAPI_create_eventset
Create a new empty PAPI EventSet.
PAPI_destroy_eventset
Empty and destroy an EventSet.
PAPI_library_init
initialize the PAPI library.
PAPI_remove_named_event
removes a named hardware event from a PAPI event set.
PAPI_start
Start counting hardware events in an event set.
PAPI_stop
Stop counting hardware events in an event set.
PAPI_strerror
Returns a string describing the PAPI error code.
NUM_LOOPS
#define NUM_LOOPS
Definition: destroy.c:17
NUM_EVENTS
#define NUM_EVENTS
Definition: destroy.c:16
PAPI_VER_CURRENT
#define PAPI_VER_CURRENT
Definition: f90papi.h:54
PAPI_OK
#define PAPI_OK
Definition: f90papi.h:73
PAPI_NULL
#define PAPI_NULL
Definition: f90papi.h:78
values
static long long values[NUM_EVENTS]
Definition: init_fini.c:10
papi.h
Return codes and api definitions.
papi_test.h
tests_quiet
int tests_quiet(int argc, char **argv)
Definition: test_utils.c:376
test_fail
void PAPI_NORETURN test_fail(const char *file, int line, const char *call, int retval)
Definition: test_utils.c:491
test_pass
void PAPI_NORETURN test_pass(const char *filename)
Definition: test_utils.c:432
main
int main()
Definition: pernode.c:20
quiet
int quiet
Definition: rapl_overflow.c:19
EventSet1
int EventSet1
Definition: zero_fork.c:47
retval
int retval
Definition: zero_fork.c:53