static int lua_likwid_getRuntimeOfGroup(lua_State* L)
{
double time;
int groupId;
if (perfmon_isInitialized == 0)
{
return 0;
}
groupId = lua_tonumber(L,1);
time = perfmon_getTimeOfGroup(groupId-1);
lua_pushnumber(L, time);
return 1;
}
int test_perfmonresult()
{
CpuInfo_t cpuinfo;
int cpu = 0;
int group;
topology_init();
cpuinfo = get_cpuInfo();
if (cpuinfo->isIntel == 0)
{
topology_finalize();
return 1;
}
int ret = perfmon_init(1, &cpu);
if (ret != 0)
goto fail;
ret = perfmon_addEventSet(eventset_ok);
if (ret != 0)
goto fail;
group = ret;
ret = perfmon_setupCounters(group);
if (ret != 0)
goto fail;
ret = perfmon_startCounters();
if (ret != 0)
goto fail;
sleep(1);
ret = perfmon_stopCounters();
if (ret != 0)
goto fail;
if ((perfmon_getResult(group,0,0) == 0)||(perfmon_getResult(group,1,0) == 0))
goto fail;
if (perfmon_getTimeOfGroup(group) == 0)
goto fail;
perfmon_finalize();
topology_finalize();
return 1;
fail:
perfmon_finalize();
topology_finalize();
return 0;
}
int test_perfmonperfgroup()
{
CpuInfo_t cpuinfo;
int i;
int cpu = 0;
topology_init();
cpuinfo = get_cpuInfo();
int ret = perfmon_init(1, &cpu);
if (ret != 0) {
printf("Perfmon init failed\n");
goto fail;
}
char** glist = NULL;
char** slist = NULL;
char** llist = NULL;
ret = perfmon_getGroups(&glist, &slist, &llist);
if (ret <= 0)
{
goto fail;
}
ret = perfmon_addEventSet(glist[0]);
if (ret != 0) {
printf("Perfmon addEventSet(%s) failed\n", glist[0]);
goto fail;
}
if (perfmon_getNumberOfEvents(ret) == 0) {
printf("Perfmon number of events == 0\n");
goto fail;
}
if (perfmon_getNumberOfMetrics(ret) == 0) {
printf("Perfmon number of metrics == 0\n");
goto fail;
}
for (i=0; i<perfmon_getNumberOfEvents(ret); i++) {
if (strcmp(perfmon_getEventName(ret, i), "") == 0)
goto fail;
if (strcmp(perfmon_getCounterName(ret, i), "") == 0)
goto fail;
}
if (strcmp(perfmon_getGroupName(ret), "Custom") == 0)
{
goto fail;
}
if (strcmp(perfmon_getGroupInfoShort(ret), "Custom") == 0)
{
goto fail;
}
if (strcmp(perfmon_getGroupInfoLong(ret), "Custom") == 0)
{
goto fail;
}
if (perfmon_getLastTimeOfGroup(ret) != 0)
{
goto fail;
}
if (perfmon_getTimeOfGroup(ret) != 0)
{
goto fail;
}
for (i=0; i<perfmon_getNumberOfMetrics(ret); i++) {
if (strcmp(perfmon_getMetricName(ret, i), "") == 0)
goto fail;
if (perfmon_getMetric(ret, i, 0) != 0.0)
goto fail;
}
free(glist);
free(slist);
free(llist);
perfmon_finalize();
affinity_finalize();
topology_finalize();
return 1;
fail:
if (glist)
free(glist);
if (slist)
free(slist);
if (llist)
free(llist);
perfmon_finalize();
affinity_finalize();
topology_finalize();
return 0;
}
