PAPI  5.6.0.0
 All Data Structures Files Functions Variables Typedefs Enumerations Enumerator Macros Groups Pages
lustre_basic.c File Reference
Include dependency graph for lustre_basic.c:

Go to the source code of this file.

Macros

#define NUM_EVENTS   1
 Tests basic lustre functionality. More...
 

Functions

int main (int argc, char **argv)
 

Macro Definition Documentation

#define NUM_EVENTS   1
Author
Vince Weaver

test case for lustre component

Definition at line 18 of file lustre_basic.c.

Function Documentation

int main ( int  argc,
char **  argv 
)

Definition at line 20 of file lustre_basic.c.

21 {
22 
23  int retval,cid,numcmp;
24  int EventSet = PAPI_NULL;
25  long long values[NUM_EVENTS];
26  int code;
28  int total_events=0;
29  int r;
30  const PAPI_component_info_t *cmpinfo = NULL;
31  int quiet=0;
32 
33  /* Set TESTS_QUIET variable */
34  quiet=tests_quiet( argc, argv );
35 
36  /* PAPI Initialization */
38  if ( retval != PAPI_VER_CURRENT ) {
39  test_fail(__FILE__, __LINE__,"PAPI_library_init failed\n",retval);
40  }
41 
42  if (!quiet) {
43  printf("Trying all lustre events\n");
44  }
45 
46  numcmp = PAPI_num_components();
47 
48  for(cid=0; cid<numcmp; cid++) {
49 
50  if ( (cmpinfo = PAPI_get_component_info(cid)) == NULL) {
51  test_fail(__FILE__, __LINE__,"PAPI_get_component_info failed\n", 0);
52  }
53 
54  if (strstr(cmpinfo->name,"lustre")) {
55  if (!quiet) printf("\tFound lustre component %d - %s\n", cid, cmpinfo->name);
56  }
57  else {
58  continue;
59  }
60 
61  code = PAPI_NATIVE_MASK;
62 
63  r = PAPI_enum_cmp_event( &code, PAPI_ENUM_FIRST, cid );
64 
65  while ( r == PAPI_OK ) {
66  retval = PAPI_event_code_to_name( code, event_name );
67  if ( retval != PAPI_OK ) {
68  printf("Error translating %#x\n",code);
69  test_fail( __FILE__, __LINE__,
70  "PAPI_event_code_to_name", retval );
71  }
72 
73  if (!quiet) printf(" %s ",event_name);
74 
75  EventSet = PAPI_NULL;
76 
77  retval = PAPI_create_eventset( &EventSet );
78  if (retval != PAPI_OK) {
79  test_fail(__FILE__, __LINE__,
80  "PAPI_create_eventset()",retval);
81  }
82 
83  retval = PAPI_add_event( EventSet, code );
84  if (retval != PAPI_OK) {
85  test_fail(__FILE__, __LINE__,
86  "PAPI_add_event()",retval);
87  }
88 
89  retval = PAPI_start( EventSet);
90  if (retval != PAPI_OK) {
91  test_fail(__FILE__, __LINE__, "PAPI_start()",retval);
92  }
93 
94  retval = PAPI_stop( EventSet, values);
95  if (retval != PAPI_OK) {
96  test_fail(__FILE__, __LINE__, "PAPI_start()",retval);
97  }
98 
99  if (!quiet) printf(" value: %lld\n",values[0]);
100 
101  retval = PAPI_cleanup_eventset( EventSet );
102  if (retval != PAPI_OK) {
103  test_fail(__FILE__, __LINE__,
104  "PAPI_cleanup_eventset()",retval);
105  }
106 
107  retval = PAPI_destroy_eventset( &EventSet );
108  if (retval != PAPI_OK) {
109  test_fail(__FILE__, __LINE__,
110  "PAPI_destroy_eventset()",retval);
111  }
112 
113  total_events++;
114 
115  r = PAPI_enum_cmp_event( &code, PAPI_ENUM_EVENTS, cid );
116  }
117  }
118 
119  if (total_events==0) {
120  test_skip(__FILE__,__LINE__,"No lustre events found",0);
121  }
122 
123  if (!quiet) {
124  printf("Note: for this test the values are expected to all be 0 as no I/O happens during the test.\n");
125  }
126 
127  test_pass( __FILE__ );
128 
129  return 0;
130 }
char event_name[2][PAPI_MAX_STR_LEN]
Definition: data_range.c:29
char name[PAPI_MAX_STR_LEN]
Definition: papi.h:629
int PAPI_stop(int EventSet, long long *values)
Definition: papi.c:2314
#define PAPI_NATIVE_MASK
const PAPI_component_info_t * PAPI_get_component_info(int cidx)
Definition: papi.c:796
void test_pass(const char *filename)
Definition: test_utils.c:432
int PAPI_add_event(int EventSet, int EventCode)
Definition: papi.c:1663
#define PAPI_NULL
Definition: papi.h:292
int PAPI_num_components(void)
Definition: papi.c:4387
int EventSet
return PAPI_OK
Definition: linux-nvml.c:497
int int argc
Definition: iozone.c:1609
void test_skip(const char *file, int line, const char *call, int retval)
Definition: test_utils.c:559
char ** argv
Definition: iozone.c:1610
int PAPI_library_init(int version)
Definition: papi.c:500
int quiet
Definition: rapl_overflow.c:18
int PAPI_enum_cmp_event(int *EventCode, int modifier, int cidx)
Definition: papi.c:1357
#define NUM_EVENTS
Tests basic lustre functionality.
Definition: lustre_basic.c:18
int PAPI_cleanup_eventset(int EventSet)
Definition: papi.c:2890
int PAPI_create_eventset(int *EventSet)
Definition: papi.c:1464
int PAPI_event_code_to_name(int EventCode, char *out)
Definition: papi.c:915
printf("\tTry: -i 0 -i 1 \n\n")
int tests_quiet(int argc, char **argv)
Definition: test_utils.c:376
void test_fail(const char *file, int line, const char *call, int retval)
Definition: test_utils.c:468
int PAPI_destroy_eventset(int *EventSet)
Definition: papi.c:2014
#define PAPI_MAX_STR_LEN
Definition: papi.h:465
int PAPI_start(int EventSet)
Definition: papi.c:2096
static long long values[NUM_EVENTS]
Definition: init_fini.c:10
ssize_t retval
Definition: libasync.c:338
#define PAPI_VER_CURRENT
Definition: papi.h:225

Here is the call graph for this function: